Comparateur de fichiers

Bonjours, voila j'ai pour projet de fair en vb6 une petite application qui me permettra de comparer l'ensemble de mes fichiers.
Pour le moment, j'aimerai juste pouvoir copier tout le contenue d'un de mes dossier que si un de mes fichiers existent pas déjà dans ma cible.

Je vous fait part de mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Form_Load()   Dim oFSO, oFld Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFld = oFSO.GetFolder("C:\Documents and Settings\Fabrice\Bureau\fabtest") // ma difficulté est surtout ici, je ne sais pas trop comment vérifier fichiers par fichiers. If Dir("C:\Documents and Settings\Fabrice\Bureau\fjf", vbHidden) <> "" Then MsgBox "Erreur" Else   oFld.Copy "C:\Documents and Settings\Fabrice\Bureau\fjf", True ' false the : pour copier en "écrasant" destination si existe.. End If     End Sub

---

Merci d'avance pour me donner un coup de main
A bientôt


Fabrice,

Bonsoir,

Je trouve que tu te compliques beaucoup la vie (en alourdissant en plus avec FSO !) :

Regarde ce que t'offre VB tout seul :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() fichier = "d:\essai.txt" If Dir(fichier) <> "" Then MsgBox "existe déjà !" Else MsgBox "n'existe pas" End If End Sub

---

Oui en cherchant, je me suis remarqué que ce Fso me complique un peu trop la tache, mais ce que je ne comprends pas, c'est la comparaison elle même des fichiers.
Par exemple je veux comparer si le fichier a du dossier A existe déjà dans le fichier B et si il est plus récent.

Je pourais fair ces recherches sans ce Ofso ?

Bonsoir

Si tu veux comparer des propriétés de tes fichiers, et non seulement l'existence dans différents dossiers, alors, je pense que FSO peut te rendre des services.

Je te conseillerais dès lors de cocher la référence à Micsrosoft Scripting Runtime de façon à bénéficier le l'aide à la saisie du code. Tu pourras alors déclarer des objets typés et tu pourras mieux voir de quelles propriétés et méthodes tu disposes.

Je te propose le code suivant, pas du tout optimisé, mais qui te donnera des idées de ce que tu peux réaliser

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub ComparerFichier() Dim fso As New Scripting.FileSystemObject Dim DosA As Scripting.Folder Dim DosB As Scripting.Folder Dim FichierA As Scripting.File Dim FichierB As Scripting.File   Set DosA = fso.GetFolder("d:\données\comparaisons\dossier A") Set DosB = fso.GetFolder("d:\données\comparaisons\dossier A")   If fso.FileExists(DosA.Path & "\facture.xml") Then Set FichierA = DosA.Files("facture.xml") If fso.FileExists(DosB.Path & "\facture.xml") Then Set FichierB = DosA.Files("facture.xml") If FichierA.DateLastModified > FichierB.DateLastModified Then MsgBox "Facture xml de " & DosA.Name & " plus récent que Facture.xml de " & DosB.Name End If End If End Sub

---

Il y a probablement plus propre comme code, mais inspire-toi de ceci pour envisager la suite.

Bon ...

voyons donc (en reprenant le code plus haut) :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() fichier = "d:\essai.txt" If Dir(fichier) <> "" Then MsgBox "existe déjà ! et a été créé/modifié pour la dernière fois le " & FileDateTime(fichier) Else MsgBox "n'existe pas" End If End Sub

---