Copy File Script

Dosya Kopyalama Script


Bir dosyayı farklı bir yere kopyalamak için aşağıdaki script'i kullanabilirsiniz.


----------

Dim systemPath 
systemPath =  CreateObject("WScript.Shell").ExpandEnvironmentStrings("%WINDIR%")
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\foldername\test.txt", "\\SharingName\test.txt"
---------