Besoin aide pour copie de fichiers à l'aide fso.CopyFile

Besoin aide pour copie de fichiers à l'aide fso.CopyFile - VB/VBA/VBS - Programmation

Marsh Posté le 28-04-2008 à 21:27:31    

Bonsoir,
 
Sur un serveur 2000, j'ai besoin de copier un fichier excel vers une centaine de répertoire utilisateurs.
Et je souhaiterai savoir quelle est la syntaxe afin que la copie puisse se faire vers tous les répertoires utilisateurs.
 
Je sais bien que c'est une fonction basique, mais j'ai quasiment aucune notion en programmation.
 
 
Voilà les lignes de commande :
 
---
Set fso = CreateObject("Scripting.FileSystemObject" )
fso.CopyFile "F:\Maquettes\Annuaire.xls", "E:\Dossiers utilisateurs\nomutilisateur\Mes documents" , True
---
 
Y a t il une commande/syntaxe pour remplacer "nomutilisateur" de sorte que tous les dossiers "nomutilisateur" aient la copie du fichier ?
 
Merci d'avance

Reply

Marsh Posté le 28-04-2008 à 21:27:31   

Reply

Marsh Posté le 28-04-2008 à 21:40:23    

Une boucle. Y'a pas de moyen direct à ma connaissance.

Reply

Marsh Posté le 28-04-2008 à 21:55:53    

ok, et as tu une idée pour écrire cette boucle ?

Reply

Marsh Posté le 28-04-2008 à 22:13:21    

un fichier texte ou csv avec la liste des répertoires (ou alors tu les stocke dans un tableau), et une boucle (for each si tu lis dans un tableau, ou un do while si tu parcours le fichier contenant la liste des répertoires) en passant chaque répertoire en argument à fso.copyfile .

Reply

Sujets relatifs:

Leave a Replay

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