RE:Comprobar actualizacion de un fichero
Lo que podrias hacer seria comparar la fecha de los archivos.
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
Private Declare Function CompareFileTime Lib "kernel32" (lpFileTime1 As FILETIME, lpFileTime2 As FILETIME) As Long
Private Sub Form_Load()
Dim SysTime As SYSTEMTIME, FT1 As FILETIME, FT2 As FILETIME
Dim Ret As Long
'initialize SYSTEMTIME structure
With SysTime
.wMilliseconds = 300
.wSecond = 9
.wMinute = 59
.wHour = 17
.wMonth = 5
.wYear = 2001
.wDay = 21
.wDayOfWeek = 1
End With
'convert SYSTEMTIME to FILETIME
SystemTimeToFileTime SysTime, FT1
'adjust the SYSTEMTIME structure
SysTime.wMinute = SysTime.wMinute - 10
'convert SYSTEMTIME to FILETIME
SystemTimeToFileTime SysTime, FT2
'compare the two FILETIMEs
Ret = CompareFileTime(FT1, FT2)
'show the result
Select Case Ret
Case 0
MsgBox "Los archivos no se modificado.", vbInformation
Case 1
MsgBox "First file time is greater than second file time.", vbInformation
End Select
%0