[VB] Copier un fichier à la volée
sophie26
-
topi -
topi -
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
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
A voir également:
- [VB] Copier un fichier à la volée
- Comment réduire la taille d'un fichier - Guide
- Fichier bin - Guide
- Comment ouvrir un fichier epub ? - Guide
- Forcer la suppression d'un fichier - Guide
- Fichier rar - Guide
2 réponses
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)
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)
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
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
