DIR(VB函式)

基本簡介

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

基本術語

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