The following is a sample VBScript using the Rocket FTPCom Object. This script will log onto an FTP server and report back the number files and directories found. To make it work, you will have to replace "127.0.0.1" with the address of an FTP server that you have an existing logon account, and change the "username" and "password" with your credentials.
Sub Main
Const ftpASCII = 0 'support
FTP_ASCII
Const ftpBinary = 1 'support FTP_IMAGE
Const ftpSmart = 3 'support FTP_IMAGE
Const ftpTenex = 4
Const ftpAskUser = 0
Const ftpOverwrite = 1
Const ftpAppend = 2
Const ftpCancel = 4
Const ftpUpdate = 7
Const ftpSkip = 8
Const ftpUnique = 12
Set Ftp = CreateObject( "RocketFTP.FtpSession" )
If (Ftp Is Nothing) Then
MsgBox "Unable to create Rocket FTPCom Object"
Else
MsgBox "You have successfully connected to the Rocket FTPCom Object, click OK to continue"
End If
With Ftp
.Open "127.0.0.1", "username", "password" 'Change to your FTP Server's address and login credentials
If (.LastError > 0) Then
MsgBox "Err #: " & Ftp.LastError & vbCr & Ftp.LastErrorString
Exit Sub
End If
' .SetCurrentDirectory "\Home" 'This
is used to set the desired directory if other than default
.OpenDirectoryListing "."
FileCount = 0
DirCount = 0
FileInfoStr = "Directory Contains:" & vbCr
Do While .GetNextFileDetails
If .FileIsDirectory = False Then
DirCount = DirCount + 1
Else
FileCount = FileCount + 1
End If
Loop
FileInfoStr = FileInfoStr
& "Total Files: " & FileCount & vbCr
FileInfoStr = FileInfoStr & "Total Directorys: " & DirCount
& vbCr
MsgBox FileInfoStr
'.ReceiveFile "pc.txt",
"host.txt", ftpASCII ''This is provided to show the syntax to
receive a file
'.SendFile "pc.txt", "host.txt", ftpASCII 'This
is provided to show the syntax to send a file
.Close
End With
End Sub
Main