Discussion :

[Eva01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Eva01]

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 ?