copier un fichier vers un repertoire ne fonctionne pas

Question

Bonjour,

Voici mon code, mais il ne fonctionne pas 
Dim objFSO 
strDestFolder = "c:\fichiersfmperso\xml" 
Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.copyfile  "C:\fichiersfmperso\AGIRA\201100184\*.xml", "c:\fichiersfmperso\xml",true

En vbs cela ne fonctionne pas, je ne sais pas pourquoi, j'ai cherché avant de poster...

Merci pour votre aide.

cs_JMO · Answer

Bonsoir

Un exemple de debug




Option Explicit
Const PathSource = "d:\Test.txt"
Const PathDest = "D:\xxx\yy\copy_test.txt"
Dim objFso
Dim strFolder

Set objFso = CreateObject("Scripting.FileSystemObject")

'Contrôle existence fichier en entrée
If Not objFso.FileExists(PathSource) Then MsgBox PathSource,,"Erreur Fichier"  

'Contrôle existence du répertoire de destination
strFolder = Left(PathDest, Len(PathDest)-Len(Mid(PathDest, InStrRev(PathDest, "") + 1)))
If Not objFso.FolderExists(strFolder) Then MsgBox strFolder,,"Erreur répertoire" 

'Copie du fichier
objFso.CopyFile PathSource, PathDest
If Err.Number <> 0 Then 
   MsgBox Err.Number &vbCrLf& Err.Source &vbCrLf& _
          Err.Description : Err.Clear
End If
Set objFso = Nothing




jean-marc

Copier un fichier vers un repertoire ne fonctionne pas

1 réponse

Votre réponse

Discussions similaires