OVH Cloud OVH Cloud

Existence dossier & Comparaison fichiers

1 réponse
Avatar
Petitmanou
Bonjour,
Je cherche 2 renseignements:
Je voudrais tester dans 2 repertoires définis si des fichiers images sont
communs (pas le même nom ni même date modif.). J'ai cherché et ai trouvé le
CRC32 mais je ne sais pas comment l'appliquer.
Je voudrais tester la présence d'un repertoire "Machin" sur un lecteur
réseau U:.
Mille merci

1 réponse

Avatar
Picalausa François
Hello,

Pour calculer un CRC32, tu peux te baser sur la classe de VBAccelerator:
http://www.vbaccelerator.com/home/vb/code/Libraries/CRC32/article.asp

Attention cependant que, comme pour tout algorithme de hash, ce n'est pas
parce que deux fichiers ont le même hash qu'ils sont les mêmes. Par contre,
s'ils ont des hash différents, il sont certainement différents. En fonction
des algorithmes de hash (MD5, SHA-1, SHA-256,SHA-512, PANAMA, TIGER,
ADLER32, RIPEMD160), tu pourra assurer avec plus ou moins de probabilité (et
de temps de calcul) que les deux fichiers sont identiques.

Cela étant, je me pose la question de savoir si une comparaison avec un
chargement morceau/morceau (pour éviter de perdre trop de temps dans les
lectures) des fichiers ne serait pas plus efficace que de lire les deux
fichiers pour ensuite appliquer l'algorithme de hash et finalement comparer
les deux nombre...

Pour tester l'existence d'un dossier, tu peux procéder comme ceci:
Private Function FolderExists(FilePath As String) As Boolean
On Error Resume Next
FolderExists = (GetAttr(FilePath) And vbDirectory) = vbDirectory
End Function

--
Picalausa François

"Petitmanou" a écrit dans le message
de news:
Bonjour,
Je cherche 2 renseignements:
Je voudrais tester dans 2 repertoires définis si des fichiers images sont
communs (pas le même nom ni même date modif.). J'ai cherché et ai trouvé
le
CRC32 mais je ne sais pas comment l'appliquer.
Je voudrais tester la présence d'un repertoire "Machin" sur un lecteur
réseau U:.
Mille merci