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,
Partager