Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
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
Join the community of 500,000 technology professionals and ask your questions.