Deplacement de fichier

Résolu
fabricioliking
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 mai 2009
- 17 avril 2008 à 15:18
fabricioliking
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 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

9 réponses

jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
59
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

@+: Ju£i?n
Pensez: Réponse
3
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
59
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
0
fabricioliking
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 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"
0
fabricioliking
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
fabricioliking
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 mai 2009

17 avril 2008 à 15:45
J'ai peu être mal concaténer ma variable, je vais fair des test
0
fabricioliking
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 mai 2009

17 avril 2008 à 15:57
Rectificatif : le File.Name contiens bien le nom du fichier, j'ai donc
oFSO
.
CopyFile
"
c:\tmp\cool\
"&File.Name
,
"
c:\tmp\Fichier\
"
,
True
0
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
59
17 avril 2008 à 15:57
Re,
Est ce qu'un petite erreur ne se serait pas glisser

ce n'est pas
Dim folder
   Set folder = fso.GetFolder(Path)
   Dim folder2
   Set folder = fso.GetFolder(Path2), ----
[code.aspx?ID=41455 By Renfield]

mais plutot

Dim folder
   Set folder = fso.GetFolder(Path)
   Dim folder2
   Set folder2= fso.GetFolder(Path2), ----
[code.aspx?ID=41455 By Renfield]

<hr size ="2" width="100%" />@+: Ju£i?n
Pensez: Réponse
0
fabricioliking
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 mai 2009

17 avril 2008 à 16:09
Oui j'ai suprimé pour la simplicité.
Je met vraiment en doute ma manière d'utiliser mes variables pour récupérer les fichiers.

ma varaible path contiends bien le lien de mon dossier parant et File.Name le nom du fichier accompagné de son extenssion
0
fabricioliking
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 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"

Comme ca, sa marche.

Merci pour ton aide Jrivet
0