主题：‘想判断不等于formid的数据 就删除，结果数据全部删除了’

For Each Product As String In Products
    For Each File As String In FileSys.GetFiles(ProjectPath & "MyWeb\pages\")
       
        If file.Contains(Product) Then   ‘想判断不等于formid的数据  就删除，结果数据全部删除了’
        Else
            If FileSys.FileExists(File) Then '如果指定的文件存在
                output.show(File)
                FileSys.DeleteFile(File,2,2) '则彻底删除之
            End If
        End If
    Next
Next

Dim cmd As New S QLCommand
cmd.Conn ecti
cmd.Comm andText =  "sele ct * from {Navigation}"
Dim bt As DataTable = cm d.ExecuteReader()
Dim Products As List(Of String)
Products = bt.GetValues("formid")
For Each File As String In FileSys.GetFiles(ProjectPath & "MyWeb\pages\")
For Each Product As String In Products
        If file.Contains(Product) Then   '想判断不等于formid的数据  就删除,结果数据全部删除了'
        Else
            If FileSys.FileExists(File) Then '如果指定的文件存在
                output.show(File)
                FileSys.DeleteFile(File,2,2) '则彻底删除之
            End If
        End If
    Next
Next

老师调换顺序后  还是一样  全部干掉了