VB中可用Dir函式查詢檔案是否存在。

Dir 函式，返回一個 String，用以表示一個檔名、目錄名或資料夾名稱，它必須與指定的模式或檔案屬性、或磁碟卷標相匹配。

Dir 函式示例：

本示例使用 Dir 函式來檢查某些檔案或目錄是否存在。在 Macintosh

計算機上，預設驅動器名稱是 “HD” ，並且路徑部分由冒號取代反斜線隔開。而且 Microsoft Windows 的萬用字元在 Mac

中可以作為有效字元出現在檔名中。也可以使用 MacID 函式來指定檔案組。

Private Sub Form_Click()

Dim MyFile, MyPath, MyName

" 返回“WIN.INI” （如果該檔案存在）。

MyFile = Dir("C:\WINDOWS\WIN.ini")

" 返回帶指定副檔名的檔名。如果超過一個 *.ini 檔案存在，

" 函式將返回按條件第一個找到的檔名。

MyFile = Dir("C:\WINDOWS\*.ini")

" 若第二次呼叫 Dir 函式，但不帶任何引數，則函式將返回同一目錄下的下一個 *.ini 檔案。

MyFile = Dir

" 返回找到的第一個隱式 *.TXT 檔案。

MyFile = Dir("*.TXT", vbHidden)

" 顯示 C:\ 目錄下的名稱。

MyPath = "c:\" " 指定路徑。

MyName = Dir(MyPath, vbDirectory) " 找尋第一項。

Do While MyName <> "" " 開始迴圈。

" 跳過當前的目錄及上層目錄。

If MyName <> "." And MyName <> ".." Then

" 使用位比較來確定 MyName 代表一目錄。

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

Debug.Print MyName " 如果它是一個目錄，將其名稱顯示出來。

End If

End If

MyName = Dir " 查詢下一個目錄。

Loop

End Sub

以下是在D盤根目錄下查詢zhang2012.xls是否存在的程式碼：

Private Sub Command1_Click()

Dim fl

If Dir("D:\zhang2012.xls") <> "" Then

Print "檔案存在"

Else

Print "檔案不存在"

End If

End Sub