copiar con filegettime
Publicado: 04 Feb 2009, 19:42
hola chapuzenado chaopuzenado quiero agregar algo a un script de gna08 mi intencion y problema con los sgtes :
intencion :
copiar los archivos recients de una sub comparando la fecha de creaciono modif con un archivo de refenrencia en una carpetadeterminada
problema :
el script que uso me sale al ejecutar Error "subscript used with out non array variable " oel razonamiento que use para armar el scrip fue :
1 tengo un archiv o con de refernecia guardado en c (por decir)
2 inserto la usb
3 el script comprara la fecha de los archivos dentro de la usb con la fecha dle archivo de referencia
4 si la fecha del fiel de ref es menor ala de los archivos de la usb ebntonces copair l os archivos ala carpeta que le digo sino msg "no hay archivos recientes "
este es el code que hice
editado febrero 5 mejore en algo el code usando otros ejemplos pero el problerma es el mismo sigo sin que me copie solo los archivo modificados
les prometo que cuando haga esto empezare con al traduccion dle chm , pero es que tengo esto metido entre ceja y ceja
mil gracias
gracias
mi lgracias
intencion :
copiar los archivos recients de una sub comparando la fecha de creaciono modif con un archivo de refenrencia en una carpetadeterminada
problema :
el script que uso me sale al ejecutar Error "subscript used with out non array variable " oel razonamiento que use para armar el scrip fue :
1 tengo un archiv o con de refernecia guardado en c (por decir)
2 inserto la usb
3 el script comprara la fecha de los archivos dentro de la usb con la fecha dle archivo de referencia
4 si la fecha del fiel de ref es menor ala de los archivos de la usb ebntonces copair l os archivos ala carpeta que le digo sino msg "no hay archivos recientes "
este es el code que hice
Código: Seleccionar todo
#Include <File.au3>
#Include <Array.au3>
#Include <date.au3>
Dim $aDrives = _DriveGet()
$1Time = FileGetTime("C:\error.log");archivo de referencia
$Time1 = $1Time[2] & "/" & $1Time[1] & "/" & $1Time[0]
$drv = _DriveGet()
$FileList=_FileListToArray($drv)
$usb = FileGetTime ($FileList)
$usbdrive= $usb[2] & "/" & $usb[1] & "/" & $usb[0]
If $time1 < $usb Then
dircopy ("c:\westwood", "c:\lir", 1)
EndIf
;FileClose($filelist)
;Exit
;*****func detectar usb por gna08
Func _DriveGet()
Local $aDrive = DriveGetDrive("REMOVABLE")
If @error Then Return False
Local $iCount = 0, $aRetDrive[1], $i
For $i = 1 To $aDrive[0]
If ($aDrive[$i] = "a:") Or (DriveStatus($aDrive[$i]) <> "READY") Then ContinueLoop
$aRetDrive[0] += 1
ReDim $aRetDrive[$aRetDrive[0] + 1]
$aRetDrive[$aRetDrive[0]] = StringUpper($aDrive[$i])
Return StringUpper($aDrive[$i])
$iCount += 1
Next
If $iCount <> "0" Then Return True
Return $aRetDrive
EndFunc
les prometo que cuando haga esto empezare con al traduccion dle chm , pero es que tengo esto metido entre ceja y ceja
mil gracias
gracias
mi lgracias