当子目录里面的文件为空,那就把当前的子目录删除。
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 (lj & "/" & dl). count<= 1 Then
ftp.DeleteDir(lj & "/" & dl)
End If
Next--------------红色的改怎么写,主要是判断子目录里面文件的个数。
ftp.Close
Forms("FTP管理器").close
比如待用户现场确认版本_产线禁止使用\2015\11130_2014(TELESTE AB_S2528gx)下面有这么多按照时间建立的子目录。如果某几个子目录下的文件为空,然后自动删除这个子目录。
此主题相关图片如下:子目录.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-3/201531915561291503.png)