Soyez le premier à donner votre avis sur cette source.
Vue 12 678 fois - Téléchargée 531 fois
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
6 avril 2007 à 11:28
6 avril 2007 à 02:59
Kill approprié, retourne une erreur pour un fichier inexistant. possible d'utiliser l'API deletefile
++
5 avril 2007 à 10:57
4 avril 2007 à 23:00
Et tu devrais faire attention aussi à vérifier que les tailles de fichiers sont identiques, ça permet d'etre "un peu plus sur" que les fichiers sont les memes.
Si tu veux vraiment etre sur, alors fait un hash MD5 de chaque fichier et compare les hash, mais faire un hash prend du temps donc à voir.
4 avril 2007 à 19:16
EBArtSoft: Effectivement j'y avais pensé mais il m'avais semblé avoir lu sur un forum qu'il ne fallais pas utilisé la fonction Kill comme cela.
Alors vu que tu me met dans le doute je vais aller regarder un peut partout pour que je me remettre a la page ^_^
Drikce06: Je viens de tester la fonction mais chez moi il me sort le cd interne a chaque acces mais pas celui en USB mais c'est une très bonne idée.
Merci a vous
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.