ftp.Hostname = "ftp.test.com" ftp.Username = "User" ftp.Password = "Pass" ' The default data transfer mode is "Active" as opposed to "Passive". ' Change it to Passive by setting the Passive property: ftp.Passive = 1 ' Establish an AUTH SSL secure channel after connection ' on the standard FTP port 21. ftp.AuthTls = 1 ' The Ssl property is for establishing an implicit SSL connection ' on port 990. Do not set it. ftp.Ssl = 0 ' Connect and login to the FTP server. connectStatus = ftp.Connect() If (connectStatus <> 1) Then 'MsgBox ftp.LastErrorText 'WScript.Quit Main = DTSTaskExecResult_Failure Else dirStatus = ftp.ChangeRemoteDir("RMed") If (dirStatus <> 1) Then 'MsgBox ftp.LastErrorText 'WScript.Quit Main = DTSTaskExecResult_Failure End If 'MsgBox ftp.getCurrentRemoteDir() 'specify the file path and name on the local machine localInvoiceFile = "C:\Documents and Settings\Nathan\My Documents\2\dRMed\Invoice_RMed.txt" localPatientFile = "C:\Documents and Settings\Nathan\My Documents\2\dRMed\Patient_RMed.txt" 'specify the file path and name on the remote machine remoteInvoiceFile = "C:\Clients\Strat\File Uploads\Customer Uploads\RMed\Invoice_RMed.txt" remotePatientFile = "C:\Clients\Strat\File Uploads\Customer Uploads\RMed\Patient_RMed.txt" 'MsgBox remoteInvoiceFile 'MsgBox remotePatientFile 'download the files from the remote server transferStatus = ftp.getFile(remoteInvoiceFile, localInvoiceFile) if (transferStatus <> 1) then 'MsgBox ftp.LastErrorText Main = DTSTaskExecResult_Failure else Main = DTSTaskExecResult_Success end if transferStatus = ftp.GetFile(remotePatientFile, localPatientFile) if (transferStatus <> 1) then 'MsgBox ftp.LastErrorText Main = DTSTaskExecResult_Failure else Main = DTSTaskExecResult_Success end if END IF ftp.Disconnect End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.