主题：[求助]如何批量删除不需要的图片文件夹？

参考代码

 

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

昨晚上传文件失败，重新上传。由于文件中的记录是不定的，同时“导出房源”文件夹下的图片文件夹数量不定，麻烦大红袍老师再指点一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:批量删除文件夹.table

2楼的循环数组，改成循环这个表的文件夹列

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