Copy and paste below code to notepad and change Location and IP address of your environment
Code:-
DIM fso
Set fso=CreateObject("Scripting.FilesystemObject")
On Error Resume Next
fso.CopyFile "C:\Program Files\copy\Data\*.*", "\\10.111.11.11\c$\Program Files\paste\Data\"
strFile = "\\10.111.11.11\c$\Program Files\paste\Data\data1.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strFile)
Wscript.Echo "File copy completed on Server 10.111.11.11: " & CDate( objFile.DateLastModified)
Comments
Post a Comment