Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1603 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1432621
boobaka
Posté le 28-08-2006 à 16:17:31  profilanswer
 

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
mood
Publicité
Posté le 28-08-2006 à 16:17:31  profilanswer
 

n°1432852
boobaka
Posté le 29-08-2006 à 08:25:26  profilanswer
 

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" )
  2. Set Fso = CreateObject("Scripting.FileSystemObject" )
  3. 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 :-°

n°1432879
boobaka
Posté le 29-08-2006 à 09:28:22  profilanswer
 

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.
++


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[Resolu] Débutant swing : interface graphique dynamique[RESOLU] Excel --> powerpoint
[RESOLU] Partager Wamp[Résolu]Comment mettre à jour une table
Tableau multidimensionnel [Résolu][C Sharp/Résolu] mémoire et sauts pointeurs: la chasse au gaspi
Retourner à la boucle précédente [Résolu]alert c'est de la fouli avec GL&SDL[resolu]
[Résolu] [C#.Net] Ecrire dynamiquement le contenu d'un <legend>Petit problème d'ordre numérique pour classement de fichiers
Plus de sujets relatifs à : [RESOLU]Copier tous les fichiers d'un repertoire en vb6


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR