主题：如何删除文件夹多余的文件？

Dim cs() As String = {"质量证明书", "注册登记表", "自检记录", "告知书"}

For Each c As String In cs
    Dim f As String = ProjectPath & "资料备份目录\" & c & "\" & Tables("基本信息表").Current("出厂编号") &  ".xls"
    If FileSys.FileExists(f) Then
        For Each File As String In FileSys.GetFiles(ProjectPath & "资料备份目录\" & c & "\")
            Dim fdr As DataRow = e.DataTable.Find("出厂编号 = '" & FileSys.GetName(file) & "'")
            If fdr Is Nothing Then
                FileSys.DeleteFile(file)
            End If
        Next
    End If
Next