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
