[VB] Copier un fichier à la volée Fermé

Question

Bonjour,
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 


[Code]
 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
/code

Polux31 · Answer

bonjour,

A première vue, la syntaxe n'est pas bonne, je pense que c'est celle là :
Set oFl = oFSO.GetFile("C:\Documents and Settings\FSD.DOMMIND\Bureau\Source a comparer\" & File.Name)

topi · Answer

Salut Sopie,
Je ne suis pas très expérimentée.
La première erreur que je vois c'est le nom du folder. Il devrait être "folder2" et pas "folder" dans la logique de ton programme pour le path2. 

Set folder2 = fso.GetFolder(Path2)

Je ne vois toutefois pas à quoi sert la ligne de code puisque folder2 n'est pas employé.

De plus, dans ton code, je ne vois pas avec quelle valeur est initialisée la variable path ou path2. Il faut s'assurer que son contenu soit correct.

Voilà, j'espère avoir pu t'aiguiller un peu

Salutations