'No API

Public Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpMaxAccessTime As FILETIME, lpMaxWriteTime As FILETIME) As Long

Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

 

 

 

 

'No form

Private Sub Command1_Click()
Dim hFile As Long
Dim lpCreationTime As FILETIME
Dim lpMaxAccessTime As FILETIME
Dim lpMaxWriteTime As FILETIME

GetFileTime CLng("C:WindowsDesktop1.exe"), lpCreationTime, lpMaxAccessTime, lpMaxWriteTime''Ta dando error Aqui
End Sub

Public Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpMaxAccessTime As FILETIME, lpMaxWriteTime As FILETIME) As Long

Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

 

Private Sub Command1_Click()
Dim hFile As Long
Dim lpCreationTime As FILETIME
Dim lpMaxAccessTime As FILETIME
Dim lpMaxWriteTime As FILETIME

Text1.Text = GetFileTime ("Nome do arquivo aqui", lpCreationTime, lpMaxAccessTime, lpMaxWriteTime)
End Sub

OBS: Peço a você que faça um teste aí pois eu não cheguei a fazer um teste no VB, mas eu creio que assim funcione.

Flws ae !

Num deu cara!!!!!!!!!!!!!!!!!!!!!

 

num ta dando certo

tem que ser valor em Long temtei comverter mas nao da certo

usando a funcao CLng

Eu enviei um e-mail com o exemplo para o seu e-mail
gato_max2004@yahoo.com.br

At+

Marcus Vinícius