Discussion :

[Gias Service]

Bonjour,

Je voudrais copier certains fichiers d'un répertoire[FullPath], dans un autre, par exemple (c:\RepDest).

La description des fichiers à copier figure déjà dans une table [tListeEnvois]:

[Drive];Texte
[DriveType];Texte
[FullPath];Texte
[FileName];Texte
[DateCreated]; Date/Heure
[DateLastAccessed]; Date/Heure
[DateLastModified]; Date/Heure
[Size]; Numérique
[Type];Texte
[Attributes];Texte

Est-ce que quelqu'un pourrait m'aider à transcrire cela en VBA.
Merci
Eric

[helas]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 FileCopy "C:\source\MonFichier.txt", "e:\destination\MaCopie.txt"

[Gias Service]

Bonsoir et merci pour la réponse.

En fait, j'ai besoin de copier x fichiers pour autant de "descriptions fichiers" que contient la table [tListeEnvois]. Il faut donc déclarer et définir en Visual... !
c'est tout le problème !

Exemple: la table, contient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
[Drive]		[DriveType]	[FullPath]		[FileName]	[DateCreated]	[DateLastAccessed]	[DateLastModified]	[Size]		[Type]		[Attributes]
\\PC-Master\T	Network		\\PC-Master\T\doc	D527.pdf	11/07/2006 22:03:30	16/03/2007 10:57:12	16/03/2007 10:57:12	98873	Adobe Acrobat Document	Archive 
\\PC-Master\T	Network		\\PC-Master\T\info	I621.pdf	16/03/2007 10:56:48	16/03/2007 10:56:48	02/12/2002 10:00:24	51554	Adobe Acrobat Document	Archive 
\\PC-Master\T	Network		\\PC-Master\T\pic     P026.pdf	11/07/2006 22:13:22	16/03/2007 10:56:38	16/03/2007 10:56:38	32970	Adobe Acrobat Document	Archive 

Les répertoires sont variables! Sous Dos, cela ressemblerait à çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Copy \\PC-Master\T\doc\D527.pdf e:\destination\doc\D527.pdf 
Copy \\PC-Master\T\info\I621.pdf e:\destination\info\I621.pdf
Copy \\PC-Master\T\pic\P026.pdf e:\destination\pic\P026.pdf

Voilà, c'est pas gagné mais bon, je compte sur vous...

[loufab]

Bonjour,

Il faut utiliser DAO accéder et parcourir la table (voir le tuto sur DAO)
Dans la boucle utilise le conseil de Helas en concaténant tes champs à l'aide de l'opérateur &.

Cordialement,