- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何批量删除不需要的图片文件夹？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87261)
-- 发布时间：2016/7/6 21:45:00
-- [求助]如何批量删除不需要的图片文件夹？
求助：如何批量删除不需要的图片文件夹？
如文件中的记录分别是：C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\103.-合同转让清水房
C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\102.龙郡龙中社区3室2厅2卫清水房出售
C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\101.花果山小区2室1厅1卫拎包入住
C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\100.拎包入住！花园小区4室3厅3卫
C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\10.绝对值,现急需出售
其桌面“导出房源”文件夹下就有相应的图片文件夹，如：103.-合同转让清水房；102.龙郡龙中社区3室2厅2卫；101.花果山小区2室1厅1卫拎；100.拎包入住！花园小区4室3；10.绝对值,现急需出售；同时还有其他图片文件夹，
现在需要批量删除”导出房源“目录下的其他文件夹，怎样实现？在易表中怎样实现？
[此贴子已经被作者于2016/7/6 21:45:58编辑过]
-- 发布时间：2016/7/6 23:31:00
--
参考代码
Dim dirs() As String = {"C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\103.-合同转让清水房","C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\102.龙郡龙中社区3室2厅2卫清水房出售","C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\101.花果山小区2室1厅1卫拎包入住","C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\100.拎包入住!花园小区4室3厅3卫","C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源\\10.绝对值,现急需出售"}
Dim str As String = "C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源"
For Each f As String In FileSys.GetDirectories(str)
If array.indexof(dirs, f) = -1 Then
FileSys.DeleteDirectory(f, 3, 3)
End If
Next
-- 发布时间：2016/7/7 7:42:00
--
昨晚上传文件失败，重新上传。由于文件中的记录是不定的，同时“导出房源”文件夹下的图片文件夹数量不定，麻烦大红袍老师再指点一下。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:批量删除文件夹.table |
-- 发布时间：2016/7/7 9:13:00
--
2楼的循环数组，改成循环这个表的文件夹列
-- 发布时间：2016/7/7 9:59:00
--
Dim str As String = "C:\\DocumentsandSettings\\Administrator\\桌面\\导出房源"
For Each f As String In FileSys.GetDirectories(str)
Dim fdr As DataRow = DataTables("表A").find("图片文件夹位置 = \'" & f & "\'")
If fdr Is Nothing Then
FileSys.DeleteDirectory(f, 3, 3)
End If
Next