Titolo: Confrontare il contenuto di due dischi o due cartelle
Categoria: Codice |
|
Ultimo Aggiornamento: 04/05/09 |
Avendo la necessità di controllare se una copia di sicurezza di un disco fosse andata a buon fine, ho scritto questo metodo ricorsivo che confronta il contenuto di due differenti percorsi. È scritto con la v11SQL. Ecco il metodo ConfrontoDischi:
If (Count parameters=0)
$percorso1:=Select folder("Percorso 1")
If (OK=1)
$percorso2:=Select folder("Percorso 2")
If (OK=1)
ARRAY TEXT(arrFile1;0)
ARRAY TEXT(arrFile2;0)
ConfrontoDischi (->arrFile1;$percorso1)
ConfrontoDischi (->arrFile2;$percorso2)
For ($i;Size of array(arrFile1);1;-1)
arrFile1{$i}:=Delete string(arrFile1{$i};1;Length($percorso1))
End for For ($i;Size of array(arrFile2);1;-1)
arrFile2{$i}:=Delete string(arrFile2{$i};1;Length($percorso2))
End for For ($i;Size of array(arrFile1);1;-1)
$find:=Find in array(arrFile2;arrFile1{$i})
If ($find>0)
DELETE FROM ARRAY(arrFile1;$i)
DELETE FROM ARRAY(arrFile2;$find)
End if End for End if End ifElse $percorso:=$2
ARRAY STRING(255;$arrNomiFile;0)
DOCUMENT LIST($percorso;$arrNomiFile)
For ($i;1;Size of array($arrNomiFile))
APPEND TO ARRAY($1->;$percorso+$arrNomiFile{$i})
End for ARRAY STRING(255;$arrNomiFile;0)
FOLDER LIST($percorso;$arrNomiFile)
For ($i;1;Size of array($arrNomiFile))
ConfrontoDischi ($1;$percorso+$arrNomiFile{$i}+"\\")
End forEnd if
| Inviato da: PierPaolo Sichera |
|
Visite: 10524 |
Se accedi con utente e password, puoi aggiungere dei commenti.
