fabricioliking
Messages postés79Date d'inscriptionmercredi 30 août 2006StatutMembreDernière intervention15 mai 2009
-
17 avril 2008 à 15:18
fabricioliking
Messages postés79Date d'inscriptionmercredi 30 août 2006StatutMembreDernière intervention15 mai 2009
-
17 avril 2008 à 16:11
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
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201259 17 avril 2008 à 15:34
Re,
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
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201259 17 avril 2008 à 15:25
Salut,
Deux petites choses.
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
fabricioliking
Messages postés79Date d'inscriptionmercredi 30 août 2006StatutMembreDernière intervention15 mai 2009 17 avril 2008 à 15:28
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"
fabricioliking
Messages postés79Date d'inscriptionmercredi 30 août 2006StatutMembreDernière intervention15 mai 2009 17 avril 2008 à 15:41
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 ?
fabricioliking
Messages postés79Date d'inscriptionmercredi 30 août 2006StatutMembreDernière intervention15 mai 2009 17 avril 2008 à 16:11
Problème résolue
Set oFl = oFSO.GetFile("C:\Documents and Settings\...\Bureau\Source a comparer" & File.Name)
oFl.Copy "C:\Documents and Settings\...\Bureau\identiques"