FTP File Pickup

[evalesthy]

I have used:

'blnSuccess = FTPDownloadFile("YourHostName", "YourUserName", "YourPassword", "YourLocalFileName", "YourRemoteFileName", "YourDir", "YourMode")

to pickup files from ftp sites. Now however, I need to set both Port and Security (Auth TLS) as well.

I can pick up the file manually using FireFTP but will need a script to run it eventually. Anyone have any experience with this?

Thanks.

 

[VbsEdit]

You can use VBScript to dynamically write a ftp script:

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")

Set ftp = fso.CreateTextFile("c:\temp\ftpscript.txt",True)
ftp.WriteLine "open ftp.myftpserver.com 21"
ftp.WriteLine "myusername"
ftp.WriteLine "mypassword"
ftp.WriteLine "Binary"
ftp.WriteLine "cd myfolder"
ftp.WriteLine "lcd c:\mylocalfolder"
ftp.WriteLine "get myremotefile.zip"
ftp.WriteLine "put mylocalfile.zip"
ftp.WriteLine "bye"
ftp.Close

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd.exe /C ftp -s:c:\temp\ftpscript.txt >c:\temp\ftpscript.log 2>&1",1,True

Looking for a good VBScript editor? Try Vbsedit