Script vbs qui marche pas

Script vbs qui marche pas - VB/VBA/VBS - Programmation

Marsh Posté le 27-10-2006 à 16:36:02    

Bonjour,
Je viens de créer un script qui doit copier des fichier de mon serveur vers le disque dur de mes utilisateurs.
 
Voilà la bête :  
 

Code :
  1. dim strSourceFile, strTargetFile, file, collfiles, curfile, fs
  2. strSourceFile = "\\tunzini03\Utilitaires\Modeles_BE\raccourcis_modeles\"
  3. 'Créer une instance du FSO
  4. Set fso = CreateObject("Scripting.FileSystemObject" )
  5. Set fs = fso.GetFolder(strSourceFile)
  6. Set collfiles = fs.Files
  7. 'Exploration des fichiers du dossier
  8. for each file in collfiles
  9. curfile = file.name
  10. strTargetFile = "c:\" & file.name
  11. 'Création d'une copie du fichier
  12. fso.CopyFile curfile, strTargetFile
  13. next


 
Qd il s'execute sur le pc de l'utilisateur, il me dit que le chemin de la source n'est pas connu.
 
J'ai bien essayé avec "\\tunzini03\Utilitaires$\Modeles_BE\raccourcis_modeles\"
"d:\bureau_etudes\Utilitaires\Modeles_BE\raccourcis_modeles\"
 
Mais rien. Alors j'ai du louper un truc dans le nom de partage réseau qui constitue le chemin.
 
Pourriez-cou me dire 2 mots sur cette erreur qui doit être toute bête.
 
Merci @tous

Reply

Marsh Posté le 27-10-2006 à 16:36:02   

Reply

Marsh Posté le 27-10-2006 à 20:34:27    

Code :
  1. strSourceFile = "\\\\tunzini03\\Utilitaires\\Modeles_BE\\raccourcis_modeles\\"



---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 30-10-2006 à 12:04:30    

autre réponse possible
 
set strSourceFile=
 
et ton chemin sans les ""

Reply

Marsh Posté le 30-10-2006 à 12:08:58    

ou encore plus simple :
 
Dim FSO
Set FSO=CreateObject("Scripting.FileSystemObject" )
FSO.CopyFile "\\tunzini03\Utilitaires\Modeles_BE\raccourcis_modeles\", "c:\"

Reply

Sujets relatifs:

Leave a Replay

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