Visual Basic - Comprobar actualizacion de un fichero

Life is soft - evento anual de software empresarial
 
Vista:

Comprobar actualizacion de un fichero

Publicado por José (4 intervenciones) el 03/07/2002 09:58:05
Hola, tengo un fichero y quiero que cada vez que se modifique se haga una copia a otra carpeta.

Gracias anticipadas
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Comprobar actualizacion de un fichero

Publicado por Mike (16 intervenciones) el 04/07/2002 00:34:46
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Para Mike

Publicado por José (4 intervenciones) el 04/07/2002 12:31:27
Ante todo gracias por tu ayuda, pero creo que me he explicado muy mal. Yo tengo un archivo A en una carpeta principal (c:\datos\A) y ese mismo archivo en otra carpeta de trabajo (c:\trabajo\A), el archivo de la carpeta de trabajo es el que voy modificando y quiero un proceso que al encender el PC compruebe si el archivo de la carpeta de trabajo es posterior al archivo de la carpeta principal y si lo es sustituya el archivo de c:\datos\A por el de c:\trabajo\A.

Muchas gracias anticipadas y perdona pero mi nivel de Visual es muy bajo por no decir nulo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar