[求助]删除目录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]删除目录

共有3003人关注过本帖树形打印复制链接主题：[求助]删除目录

liujywwy

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

[求助]删除目录 发帖心情

Post By：2015/3/19 16:04: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 (lj & "/" & dl). count<= 1 Then

ftp.DeleteDir(lj & "/" & dl)

End If

Next--------------红色的改怎么写，主要是判断子目录里面文件的个数。

ftp.Close

Forms("FTP管理器").close

比如待用户现场确认版本_产线禁止使用\2015\11130_2014(TELESTE AB_S2528gx)下面有这么多按照时间建立的子目录。如果某几个子目录下的文件为空，然后自动删除这个子目录。

此主题相关图片如下：子目录.png

liujywwy

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2015/3/19 16:38:00 [显示全部帖子]

效果不对，并没有删除为空的子目录。

Dim ftp As New FtpClient

Dim dls As List(of String)

ftp.Host="192.168.1.35"

ftp.Account = "tester"

ftp.Password = "tester"

dls = ftp.GetDirList("lj")

msgbox(lj)-------已执行

For Each dl As String In dls

msgbox(dl)---未执行，应该是把dls中的每个元素都列出来才对。

If ftp.GetFileList(lj & "/" & dl).Count < 2 Then

ftp.DeleteDir(lj & "/" & dl)

End If --------这个if判断未删除为空的子目录。

ftp.Close

Forms("FTP管理器").close

liujywwy

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2015/3/19 18:38:00 [显示全部帖子]

还是没删除啊。

Dim ftp As New FtpClient

Dim dls As List(of String)

ftp.Host="192.168.1.35"

ftp.Account = "tester"

ftp.Password = "tester"

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)

msgbox(dl)-----弹出的文件夹名称是对的，但却没删除。

End If

ftp.Close

Forms("FTP管理器").close

下一主题 >> << 上一主题

主题：[求助]删除目录