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

参考代码

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