Permet de comparer et de supprimer des fichiers en double.
Pour moi il me permet quand je grave des fichiers sur CD ou DVD après gravure de faire une comparaison du CD ou DVD par rapport au disque dur et supprime les fichiers cela évite d'avoir plusieurs même fichier sur le même CD ou DVD.
Il y a quelques bugs si vous avez un lecteur sans CD par exemple.
Mais c'est un exemple qui fonctionne quand même.
Source / Exemple :
Private Sub Annuler_Click()
'Ferme le programme
Unload Me
End Sub
Private Sub Dir1_Change()
' Affiche les fichier suivent le dossier
File1.Path = Dir1.Path
End Sub
Private Sub Dir2_Change()
' Affiche les fichier suivent le dossier
File2.Path = Dir2.Path
End Sub
Private Sub Drive1_Change()
' Dit quelle lecteur choisi
Dir1.Path = Drive1.Drive
End Sub
Private Sub Drive2_Change()
' Dit quelle lecteur choisi
Dir2.Path = Drive2.Drive
End Sub
Private Sub Valier_Click()
Dim Ligne, Ligne2, Max, Max2 As Integer
Dim Msg As String
'Message de protection
Msg = MsgBox("Attention vous êtez sur le point de supprimer des fichiers" & vbCrLf & "Continuer ? ", vbYesNo, "Suppression")
If Msg = vbNo Then Exit Sub ' si on clique sur non on quitte
Ligne = 0
Ligne2 = 0
' Boucle de suppression des fichier en double
Do
Max = File1.ListCount 'Pour longueur maximal
Max2 = File2.ListCount 'Pour longue rmaximal
File1.ListIndex = Ligne
Do
File2.ListIndex = Ligne2
If File1.FileName = File2.FileName Then
'Supprimer un Fichier :
'Cette partit du cose vien de
'Auteur: tekila_bandita de VB France
'http://www.vbfrance.com/codes/SUPPRIMER-FICHIER-OU-CATEGORIE-FICHIERS-DANS-REPERTOIRE_32173.aspx
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile (File2.Path & "\" & File2.FileName)
' Voila jusque ici que je remerci.
Ligne2 = 0
End If
Ligne2 = Ligne2 + 1
Loop Until Ligne2 = Max2
Ligne2 = 0
Ligne = Ligne + 1
Loop Until Ligne = Max
End Sub
Conclusion :
Je remercie
tekila_bandita a qui j'ai utilisé une partit d'un de ses codes voici le lien
http://www.vbfrance.com/codes/SUPPRIMER-FICHIER-OU-CATEGORIE-FICHIERS-DANS-REPERTOIRE_32173.aspx
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.