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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU]Copier tous les fichiers d'un repertoire en vb6

boobaka

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

Publicité

boobaka

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 :

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

boobaka

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

Code :

Sub CopyFolder(folderpath As String, destfolderpath As String)
Dim fso As Object
Dim fld As Object
Set fso = CreateObject("Scripting.FileSystemObject" )
Set fld = fso.GetFolder(folderpath)
fld.Copy destfolderpath
End Sub

Puis dans ma Private Sub Command_Click()
un simple

Code :

Call CopyFolder("c:\dossiersource", "c:\dossierdestination" )

Et voili voila.
++

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

Page générée en 0.052 secondes