Need help with FTP

[jcash35010]

I am FTP a file from a NT to a unix. I need some help determining how to set this up, and I don't know how to do it. My setup is as below....

ftp workbrain
address ftp to /wbx/home/dwn/tpmpay
username tpmpay
password tpmpay
filename tpmpay.txt

Thanks for any advice and help you can give me....

 

[PHV]

An approach is to create a ftp-commands file and then launch ftp, something like this.
1) myftp.txt:

user tpmpay tpmpay
cd /wbx/home/dwn/tpmpay
put tpmpay.txt
bye

2) In your VBS file:

Set S=WScript.CreateObject("WScript.Shell")
S.Run "ftp -v -n -s:\path\to\myftp.txt workbrain"

Hope This Help
PH.

 

[jcash35010]

Ok, I am having a problem. Below is my code in my script. I have to check to see if the file is there before I try to ftp. The file may not always be there, however when I run this I am getting an object required " error on line 9.

Any advice?

Dim FSO, File, Folder, FolderContents, objLogFile, CopyFile, SourceFile, SourceLine
dim CurrentFile
Dim FileDate, SystemDate
Dim objFTP, objTextFile, oScript, oScriptNet, oFileSys, oFile, strCMD, strTempFile, strCommandResult

Set FSO = CreateObject("Scripting.FileSystemObject&quot
Set Folder = FSO.GetFolder("E:\TPM\PAYFILES\&quot

If Ucase(File.Name) = "TPMPAYFILE.TXT" then
Set S=WScript.CreateObject("WScript.Shell&quot
S.Run "ftp -v -n -s:\path\to\ftpworkbrain.txt workbrain"
File.Delete()
End IF

Set FSO = nothing
Set Folder = nothing
CurrentFile.Close
Set CurrentFile = NOTHING

 

[PHV]

Try something like this:

Set FSO=CreateObject("Scripting.FileSystemObject")
If FSO.FileExists("TPMPAYFILE.TXT") Then
  Set S=WScript.CreateObject("WScript.Shell")
  S.Run "ftp -v -n -s:\path\to\ftpworkbrain.txt workbrain" 
  FSO.DeleteFile("TPMPAYFILE.TXT")
End If

Hope This Help
PH.

 

[jcash35010]

Thanks...that helps a lot.