Taken from @AhmedEbied's comment on my answer below.
OK I understood. We will use the (DIR) FTP command to retrieve directories on the FTP server. Using (DIR) COMMAND Inet1.Execute, ("DIR")
' CommandButton
Private Sub Get_Dir_Click()
Dim Data as String, Data1 as String
' Get List of all files
Do Data1 = Inet1.GetChunk(1024, icString)
Data = Data & Data1
Loop While Len(Data1) <> 0
Text4.Text = Data
End Sub
Of course I had UsrName, PassWordand URL.
source
share