主题：关于删除文件夹中不符合条件的文件

怎么删除指定文件夹下的多余的文件呢？文件的命名是以数据库某列字段命名的，比如某列的列名是"文本文件"字段有A、B、C、D等等，指定的文件夹下有A、B、D、E、F、F1、S、S1、S2、S3、W、Q、R等等文件我怎么循环删除不符合条件的文件呢？即删除E、F、F1、S、S1、S2、S3、W、Q、R文件

参考

 

Dim dir As new io.DirectoryInfo("d:\") For Each File As object In dir.GetFiles     msgbox(file.name)     'file.delete Next

执行代码后把所有的图片全删了，怎么只删除数据库不存在图片呢？只要数据库中某子段名称存在就不删除了呢？

Dim dir As new io.DirectoryInfo("d:\")
Dim t As Table = Tables("表A")
For Each File As object In dir.GetFiles
    If t.DataTable.Find("第一列 like '%" & file.name & "%'") Is Nothing Then
        msgbox(file.name)
        'file.delete
    End If
Next

 

怎么还是删除了所有的照片呢？

 

1、贴出代码；

 

2、截图或者具体实例说明。

打开程序打开窗体单击“删除多余图片”按钮，执行后是删除所有的照片了，我想要的结果是只删除文件夹照片\客户身份证/下所有文件名称中不包括"照片原始名 ”字段的所有照片

Dim dir As new io.DirectoryInfo(ProjectPath & "照片\客户身份证/")
Dim t As Table = Tables("客户档案")
For Each File As object In dir.GetFiles
    Dim contains = False
    For Each r As Row In t.Rows
        If r("照片原始名") > "" AndAlso file.name.contains(r("照片原始名")) = True Then
            contains = True
            Exit For
        End If
    Next
    If contains = False Then
        msgbox(file.name)
'        file.delete
    End If
Next

Dim dir As new io.DirectoryInfo(ProjectPath & "照片\客户身份证/")
Dim t As Table = Tables("客户档案")
For Each File As object In dir.GetFiles
    Dim contains = False
    For Each r As Row In t.Rows
        If r("照片原始名") > "" AndAlso file.name.contains(r("照片原始名")) = True Then
            contains = True
            Exit For
        End If
    Next
    If contains = False Then
        msgbox(file.name)
        If FileSys.DirectoryExists("C:\Users\Administrator\Desktop\照片\复制照片") = False Then
            FileSys.CreateDirectory("C:\Users\Administrator\Desktop\照片\复制照片")
        End If
        file.copyto("C:\Users\Administrator\Desktop\照片\复制照片\" & file.name, True)
        'file.delete
    End If
Next