copie multiple

copie multiple - VB/VBA/VBS - Programmation

Marsh Posté le 17-11-2008 à 17:47:05    

Bonjour
 
je suis "newbie" :pt1cable: en scripting et là je cale , je souhaite copier un fichier à partir d'un poste sur plusieurs postes distants , j'ai un fichier texte comprenant le nom de mes postes distants , j'ai crée une "instance" dictionary pour y classer mes postes distants et pour chaque poste distant trouvé je veux y copier un fichier txt
Voici mon script
 
Const ForReading = 1  
dt = Replace(Date,"/","-";)  
strFileName = "C:testlog" & dt & "-FreeSpace.txt"  
 
Set objDictionary = CreateObject("Scripting.Dictionary";)
Set objFSO = CreateObject("Scripting.FileSystemObject";)
Set objTextFile = objFSO.OpenTextFile _
("c:testlogservers.txt", ForReading)
 
i = 0
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
i = i + 1
Loop
For Each objItem in objDictionary
 
StrComputer = objDictionary.Item(objItem)
objFSO.CopyFile "C:testlogfichier.txt" , "\" & strComputer & "c$temp",
Next

Quand je l'execute j'ai une erreur ligne 35 :cry:  
 
Je sais pas si on peut faire plus simple ?
 
Merci de votre aide... :hello:


Message édité par buck94 le 17-11-2008 à 17:49:38

---------------
mon feedback
Reply

Marsh Posté le 17-11-2008 à 17:47:05   

Reply

Marsh Posté le 18-11-2008 à 15:38:07    

personne......


---------------
mon feedback
Reply

Sujets relatifs:

Leave a Replay

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