Deplacement de fichierRésolu

Question

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 · Accepted Answer

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

jrivet · Answer

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 · Answer

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 · Answer

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

fabricioliking · Answer

J'ai peu être mal concaténer ma variable, je vais fair des test

fabricioliking · Answer

Rectificatif : le File.Name contiens bien le nom du fichier, j'ai donc 
oFSO.CopyFile"c:	mp\cool\"&amp;File.Name,"c:	mp\Fichier\",True

jrivet · Answer

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

fabricioliking · Answer

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

fabricioliking · Answer

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

Deplacement de fichier

9 réponses

Votre réponse