File Copy Over Network Using VB-Script

‘ VBScript
Option explicit
Dim objFSO, strSourceFile, strTargetFile, booOverWrite, strResult
strSourceFile = “\\192.168.1.1\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
Else
strResult = “The file does not exist, created”
booOverWrite = vbFalse
objFSO.CopyFile strSourceFile, strTargetFile, booOverWrite
End If

Wscript.Echo strResult

Advertisements

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:

WordPress.com Logo

You are commenting using your WordPress.com 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 )

Google+ photo

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

Connecting to %s