Option Explicit
Sub Main
Dim intReturn As Integer
Dim varHost As Variant
Dim varUserName As Variant
Dim varPassword As Variant
Dim intPort As Integer
Dim varLocalFile As Variant
Dim varRemoteFile As Variant
Dim varFTPLogFile As Variant
Dim intOverwriteLog As Integer
varHost = "www.hostname.com"
varUserName = "username"
varPassword = "password"
intPort = 21
varLocalFile = "C:\mytest.txt"
varRemoteFile = "/mytest.txt"
varFTPLogFile = "c:\ftp.log"
intOverwriteLog = 1
intReturn = Action2.FTPQuickSend (varHost, varUsername, varPassword, intPort, varLocalFile, varRemoteFile, varFTPLogFile, intOverwriteLog)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub