Voila, j'aimerai pouvoir copier à la volé tous les fichiers présent dans le File.Name mais vb me signale une erreur sur
" Set oFl = oFSO.GetFile("C:\Documents and Settings\FSD.DOMMIND\Bureau\Source a comparer" & File.Name) "
Je ne pensse pas que l'erreur sois grosse
Dim oFSO
Dim oFS, oFl
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim folder
Set folder = fso.GetFolder(Path)
Dim folder2
Set folder = fso.GetFolder(Path2)
Dim Files
Set Files = folder.Files
For Each File In Files
If existe(File.Name) = True Then
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFl = oFSO.GetFile("C:\Documents and Settings\FSD.DOMMIND\Bureau\Source a comparer" & File.Name)
oFl.Copy "C:\Documents and Settings\FSD.DOMMIND\Bureau\Anterieurs" & File.Name, True
End If
Justement c'est ce que je te dit AUCUNEMENT besoin de faire un GETFILE pour le copier, passse plutot par la méthode .CopyFIle De l'objet oFSO de type FileSystemObject
1- Pourquoi faire un GetFile avant une Copie? utilise directement .CopyFile de l'objet oFSO
2- Quelle est l'erreur signalée par VB (et oui c'est utilie pour nous)
@+: Ju£i?n Pensez: Réponse
A oui, j'ai presque oublié l'erreur, c'est simplement que le fichier est introuvable, rien qui me semble vraiment méchant.
J'utilise le getfile pour recuperer le fichier à copier du dossier "Source à comparer" pour ensuite le coller dans "Anterieurs"
Oui, si je met le lien en dure, sa marche très bien avec le copyfile, c'est plus pratique, mais je viens de me rendre compte que le soucie est que ma var File.Name ne contiends pas le nom de mon fichier, c'est pour cela qu'il est introuvable
Vous n’avez pas trouvé la réponse que vous recherchez ?
Set oFl = oFSO.GetFile("C:\Documents and Settings\...\Bureau\Source a comparer" & File.Name)
oFl.Copy "C:\Documents and Settings\...\Bureau\identiques"