copiar con filegettime

Tus preguntas. Algoritmos o Grupos de Comandos formando Programas Escripts.
Responder
Avatar de Usuario
timistar
Hacker del Foro
Mensajes: 89
Registrado: 24 Jun 2008, 05:03

copiar con filegettime

Mensaje por timistar »

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

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

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
:smt040 :smt028 :smt028
Responder