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

我有一个VB6项目，它可以很好地连接到ftp远程服务器（即：），我只想使用Inet1.ocx将ftp服务器中的所有目录名列在一个列表框中。

---

我如何才能做到这一点？

您可以安装一个支持FTP的ActiveX组件，如下所示：。请注意，有一个免费版本称为FTP，还有一个付费版本称为FTP2。为了你的目的，免费的就足够了

请参阅并开始。

摘自@Ahmedbied对我下面答案的评论

---

好的，我知道了。我们将使用（DIR）FTP命令来检索FTP服务器中的目录。 使用（DIR）命令 Inet1.执行（“DIR”）

”命令按钮
私有子获取目录单击（）
Dim数据作为字符串，Data1作为字符串
'获取所有文件的列表
Do Data1=Inet1.GetChunk（1024，icString）
数据=数据和数据1
循环而Len（数据1）0
Text 4.Text=数据
端接头

---

当然，我有

UsrName

，

密码和
URL
。
我不知道
Inet1.ocx
，对不起。好的，我知道了。我们将使用（DIR）FTP命令来检索FTP服务器中的目录。常规声明节Dim Data，Data1作为字符串私有子Get_Dir_Click（）'CommandButton'获取所有文件的列表Do Data1=Inet1.GetChunk（1024，icString）Data=Data&Data1循环而Len（Data1）0 Text4.Text=Data End Sub当然我有用户名、密码和URL。@艾哈迈德建议您可以将这段代码写入自己的答案中，我会投票表决。也许其他人也有同样的问题，通过搜索到达这里。我已经尝试过了，但它说（声誉低于100的用户无法回答他们自己的问题）。。。您可以复制并粘贴我的评论作为答案，我相信其他人会投赞成票。@Ahmedbied您可以建议编辑我的答案，添加缺少的上下文。
' 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