Foxtable(狐表)用户栏目专家坐堂 → FTP不能列出所有文件


  共有3497人关注过本帖树形打印复制链接

主题:FTP不能列出所有文件

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6886 积分:43605 威望:0 精华:0 注册:2009/3/2 14:07:00
FTP不能列出所有文件  发帖心情 Post By:2020/2/26 12:46:00 [只看该作者]

不能列出目录下所有文件
Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host=""
ftp1.Account = "foxtable"
ftp1.Password = ""
fls = ftp1.GetFileList("\存货名称图片")
For Each fl As String In fls
    Output.Show(fl)
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/26 14:00:00 [只看该作者]

如果有子目录,需要递归进去处理,使用GetDirList获取目录,再逐一取子目录里的文件

Dim ftp1 As New FtpClient
Dim fls As List(of String) 
ftp1.Host=""
ftp1.Account = "foxtable"
ftp1.Password = ""
fls = ftp1.GetFileList("\存货名称图片")
For Each fl As String In fls
    Output.Show(fl)
Next

Dim fls2 As List(of String) = ftp1.GetDirList("\存货名称图片")
For Each fl2 As String In fls2
fls = ftp1.GetFileList(fl2)
For Each fl3 As String In fls
    Output.Show(fl3)
Next
Next

 回到顶部