Dim objFSO

 Set objFSO = CreateObject("Scripting.FileSystemObject")

 If (objFSO.FileExists("C:\MyFolder\MyFile.txt ")) Then
       objFSO.CopyFile "C:\MyFolder\MyFile.txt", “\\Server1\SharedFolder\MyFile.txt”

 Else
       WScript.Echo("Unable to locate file")

 End if