Re: cannot get a directory listing using FTPSimpli (General questions)

by Scott, Friday, November 11, 2005, 22:12 (6951 days ago) @ wodSupport

This is the code I am using to connect

Dim loFTPDirectoryItems As wodFtpDLXComLib.DirItems
Dim loFTPDirectoryItem As wodFtpDLXComLib.DirItem
Dim loCert As WODCERTMNGLib.Certificate

List1.Clear
list2.Text = vbNullString
Set loFTP = New wodFtpDLXComLib.wodFtpDLXCom

With loFTP
.LicenseKey = XXXX-XXXX-XXXX-XXXX

.HostName = XXXXXXXXXXXX
.Login = XXXXXXXXXXXXX
.Password = XXXXXXXXXXXXX

.Protocol = FTPSimplicit
.Port = 990
.Passive = True
.StrictHost = True
.Blocking = True

.Connect

End With

List1.AddItem Start of Directory
Set loFTPDirectoryItems = loFTP.DirItems
For Each loFTPDirectoryItem In loFTPDirectoryItems
List1.AddItem * & loFTPDirectoryItem.Name *
Next
List1.AddItem End of Directory
loFTP.Disconnect

Set loFTP = Nothing