Hej, mam mały problem - żeby ułatwić sobie życie postanowiłem znaleźć skrypt kopiujący wskazany plik na wiele komputerów.
Znalazłem odpowiedni skrypt:
Const ForReading = 1
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Computers.txt")
Do Until objFile.AtEndOfStream
strComputer = objFile.ReadLine
strRemoteFile = "\\" & strComputer & "\C$\Scripts1\Test.txt"
objFSO.CopyFile "C:\Scripts\Test.txt", strRemoteFile, OverwriteExisting
Loop
i wszystko działa dopóki wskazana ścieżka istnieje na komputerze docelowym. W przypadku gdy jej nie ma skrypt przerywa działanie - i tu jest problem. Chciałbym aby w wypadku braku istnienia ścieżki skrypt 'szedł' dalej, a nie kończył pracę.
Próbowałem dodać if /else w okolicy ostatniej komendy, ale niestety pojawiał mi się błąd kompilacji całej pętli.
Nie znam VB, więc proszę Was o pomoc.