DIR

它必須與指定的模式或文件屬性、或磁盤卷標相匹配。

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