檢查文件夾中存在的多個文件

Question

我想檢查文件夾中的幾個文件。如果一個一個地檢查文件，我沒有問題。目前我有這個代碼只檢查一個文件。

If File.Exists("C:\FINAL.txt") = False Then 
     MsgBox("Field does not exist!", MsgBoxStyle.Critical, "File Not Found") 
    Else 
     MsgBox("File Exist in System Folder", MsgBoxStyle.Information, "File is Found") 
    End If 

我該如何更改代碼以便在同一時間檢查多個文件？

Answer 1

有很多的方法可以做到這一點...

只有一個：

Public Class Form1 

    Private Shadows Sub Load() Handles MyBase.Load 

     Dim Files As String() = {"C:\File1.txt", "C:\File2.txt"} 

     For Each File As String In Me.CheckFileExists(Files) 

      MessageBox.Show(String.Format("File doesn't exist: {0}", File), "File Not Found", 
          MessageBoxButtons.OK, MessageBoxIcon.Error) 

     Next File 

    End Sub 

    Private Function CheckFileExists(ByVal Files As IEnumerable(Of String)) As IEnumerable(Of String) 

     Dim sb As New System.Text.StringBuilder 

     For Each File As String In Files 

      If Not IO.File.Exists(File) Then 
       sb.AppendLine(File) 
      End If 

     Next File 

     Return sb.ToString.Split({Environment.NewLine}, 
           StringSplitOptions.RemoveEmptyEntries) 

    End Function 

End Class 

Answer 2

您可以檢查所有目錄中的文件，找到所需的文件是否存在或不存在用下面的查詢：

Dim dir As DirectoryInfo = New DirectoryInfo("d:\") 
dim flag As Integer=0 
For Each File As FileInfo In dir.GetFiles 
    If File.Name = "FINAL.txt" Then 
     MsgBox("File Exist in System Folder", MsgBoxStyle.Information, "File is Found") 
     flag=1 
    End If 
Next 
If flag = 0 Then 
    MsgBox("File does not Exist in System Folder", MsgBoxStyle.Information, "File not Found") 
End