- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]删除目录 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65633)
-- 发布时间：2015/3/19 16:04:00
-- [求助]删除目录
当子目录里面的文件为空，那就把当前的子目录删除。
此主题相关图片如下：子目录.png
-- 发布时间：2015/3/19 16:06:00
--
http://www.foxtable.com/help/topics/1410.htm
GetFileList
用于返回FTP服务器指定目录下的全部文件名，以字符串集合的形式返回，语法：
GetFileList(Path)
Path：可选参数，用于指定目录，如果省略，则返回当前目录下的全部文件名。
示例
例如列出photo目录下的所有文件：
Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
fls = ftp1.GetFileList("\\photo")
For Each fl As String In fls
Output.Show(fl)
Next
还可以使用通配符，例如列出photo目录下的所有jpg文件：
Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
fls = ftp1.GetFileList("\\photo\\*.jpg")
For Each fl As String In fls
Output.Show(fl)
Next
GetDirList
用于返回FTP服务器指定目录下的全部子目录，以字符串集合的形式返回，语法：
GetDirList(Path)
Path：可选参数，用于指定目录，如果省略，则返回当前目录下的全部子目录名。
示例
Dim ftp1 As New FtpClient
Dim dls As List(of String)
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
dls = ftp1.GetDirList("\\photo")
For Each dl As String In dls
Output.Show(dl)
Next
-- 发布时间：2015/3/19 16:08:00
--
Dim ftp As New FtpClient
Dim dls As List(of String)
ftp.Host="192.168.1.35"
ftp.Account = "tester"
ftp.Password = "tester"
Dim lj As String = "/待用户现场确认版本_产线禁止使用/2015/" & Tables("临时版本跟踪表").current("临时版本编号") & "(" & Tables("临时版本跟踪表").current("客户") & "_" & Tables("临时版本跟踪表").current("博达机型") & ")"
dls = ftp.GetDirList(lj)
msgbox(lj)
For Each dl As String In dls
If ftp.GetFileList(lj & "/" & dl).Count < 1 Then
ftp.DeleteDir(lj & "/" & dl)
End If
Next
ftp.Close
Forms("FTP管理器").close
-- 发布时间：2015/3/19 16:38:00
--
-- 发布时间：2015/3/19 18:04:00
--
这句写错了啊
-- 发布时间：2015/3/19 18:38:00
--
-- 发布时间：2015/3/19 19:30:00
--
ftp.DeleteDir(lj & "/" & dl, True)
DeleteDir
删除FTP上的目录，语法：
DeleteDir(DirName,AnyWay)
DirName：要删除的目录名称。
AnyWay：可选参数，如果设为True，将删除目录下的文件及其子目录，如果省略此参数，则只有此目录为空的时候，才能删除。
如果删除成功，返回True，否则返回False
-- 发布时间：2016/7/9 5:23:00
--
我也遇到这种情况，用FTP ftp.DeleteDir(mlm, True) 这个命令空目录无法删除！
-- 发布时间：2016/7/9 9:27:00
--
测试没有问题。