[RESOLU]Copier tous les fichiers d'un repertoire en vb6

Copier tous les fichiers d'un repertoire en vb6 [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 28-08-2006 à 16:17:31    

Bonjour à tous,
dans e cadre de mon travail, je test du script en vb6....
Je sais copier un fichier voir plusieurs quand on connait leur nom (filecopy ), mais je dois copier tous les fichiers d'un repertoire sans en connaitre, par avance, leurs noms....
 
pourriez vous m'aider...C'est tout bete mais je bloque dessus depuis un bout...
 
Par avance merci.
++


Message édité par boobaka le 29-08-2006 à 09:29:13
Reply

Marsh Posté le 28-08-2006 à 16:17:31   

Reply

Marsh Posté le 29-08-2006 à 08:25:26    

Petit ajout....
En allant dans les outils de mon projet et en activant le microsoft run-time...Je devrai pouvoir activer le copy.folder
 

Code :
  1. Set Fso = CreateObject("Scripting.FileSystemObject" )
  3. Set Fso = CreateObject("Scripting.FileSystemObject" )
  4. Fso.CopyFolder("c:\fichiers", "c:\local" ) = 0


le =0 n'est qu'une parade a un precedent message d'erreur...
 
 
 
La copie s'effectue mais une erreurs 451 : property let n'est pas definie et property get n'a pas renvoyé d'objet....
Heu oui mais c'est que moi et les scripting vb :-°

Reply

Marsh Posté le 29-08-2006 à 09:28:22    

Oki c'est resolu, donc pour ceux interessé, la solution trouvée  

Code :
  1. Sub CopyFolder(folderpath As String, destfolderpath As String)
  2. Dim fso As Object
  3. Dim fld As Object
  4.     Set fso = CreateObject("Scripting.FileSystemObject" )
  5.     Set fld = fso.GetFolder(folderpath)
  6.     fld.Copy destfolderpath
  7. End Sub


 
Puis dans ma Private Sub Command_Click()
un simple  

Code :
  1. Call CopyFolder("c:\dossiersource", "c:\dossierdestination" )


 
Et voili voila.
++

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed