COMPARE ET SUPPRIME LES FICHIERS IDENTIQUES
cs_FAS
Messages postés
88
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
24 février 2006
-
29 août 2004 à 18:01
Fixnyl Messages postés 11 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 8 décembre 2013 - 6 sept. 2004 à 14:31
Fixnyl Messages postés 11 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 8 décembre 2013 - 6 sept. 2004 à 14:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25774-compare-et-supprime-les-fichiers-identiques
https://codes-sources.commentcamarche.net/source/25774-compare-et-supprime-les-fichiers-identiques
6 sept. 2004 à 14:31
il suffit pour ça de remplacer les 2 lignes :
FSO.DeleteFile(strKey2)
Dictionary.Remove strKey2
par celle-ci :
r= msgbox("Quel fichier voulez-vous supprimer?" _
& chr(13) & "Répondre oui supprimera le fichier : " _
& strKey2 & chr(13) & "non supprimera le fichier : " _
& strKey2, 3 )
select case r
case 2 'annuler
strKey=""
case 6 'oui
strKey=strKey2
end select
if strKey <> "" then
FSO.DeleteFile(strKey)
Dictionary.Remove strKey
end if
... et aussi si les fichiers son de grandes tailles c'est possible que ça ne marche pas mais bon j'en suis pas sur.
-------------------------------------------------------------------
je pense faire une version qui pourrait prendre en charge 2 dossiers différents.
6 sept. 2004 à 10:54
Oui, l'idée est bonne et c'est certainement très pratique.
Je vous remercie pour la leçon sur l'utilisation des objets.
Vous serez-t-il possible de donner le choix du fichier à supprimer ?
....................
If DeleteFile = True Then
' Affichage chemin 1
' Affichage du chemin 2
' Proposition de choix
' si 1 alors
' FSO.DeleteFile(strKey1)
' Dictionary.Remove strKey1
'si 2 alors
' FSO.DeleteFile(strKey2)
' Dictionary.Remove strKey2
' fin de choix
End If
.................
En effet, ce n'est pas forcément le premier fichier rencontré qui est à la bonne place !
Bien cordiales salutations
29 août 2004 à 18:09
29 août 2004 à 18:01