File Copy Over Network Using VB-Script

‘ VBScript
Option explicit
Dim objFSO, strSourceFile, strTargetFile, booOverWrite, strResult
strSourceFile = “\\\Vasant\*.vbs
strTargetFile = “c:\Backup”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists( strTargetFile) Then
strResult = “The file exists, overwritten”
booOverWrite = vbTrue
objFSO.CopyFile strSourceFile & “\*”, strTargetFile & “\”, booOverWrite
strResult = “The file does not exist, created”
booOverWrite = vbFalse
objFSO.CopyFile strSourceFile, strTargetFile, booOverWrite
End If

Wscript.Echo strResult


One thought on “File Copy Over Network Using VB-Script

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )


Connecting to %s