vb6 - 如何使用 Inet.OCX 将 FTP 站点内的所有目录返回到 VB6 列表框？

Question

我有一个 VB6 项目，它可以很好地连接到 ftp 远程服务器（即：ftp: //ftp.microsoft.com），我想仅使用 Inet1.ocx 将 ftp 服务器中的所有目录名称列出到 ListBox 中。我怎样才能做到这一点 ？

Answer 1

摘自@AhmedEbied 对我下面的回答的评论。

---

好，我知道了。我们将使用 (DIR)，即 FTP 命令来检索 FTP 服务器中的目录。使用 (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 

当然，我有UsrName,PassWord和URL到位。

Answer 2

您可以安装一个支持 FTP 的 ActiveX 组件，例如：Chilkat FTP。请注意，有一个免费版本，称为 FTP，还有一个付费版本，称为 FTP2。出于您的目的，免费的应该就足够了。

请参阅文档和示例页面以开始使用。