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

删除多余文件，参考

For Each File As String In FileSys.GetFiles(ProjectPath & "Bfbak\")
    Dim fdr As DataRow = e.DataTable.Find("第一列 = '" & FileSys.GetName(file) & "'")
    If fdr Is Nothing Then
        FileSys.DeleteFile(file)
    End If
Next