FileSystem.Dir 方法

public:
 static System::String ^ Dir();

public static string Dir();

static member Dir : unit -> string

Public Function Dir () As String

傳回

代表與特定模式或檔案屬性相符的檔案、目錄或資料夾名稱的字串，或磁碟的磁碟區標籤。

範例

這個範例使用了 Dir 這個函式來檢查某些檔案和目錄是否存在。

Dim MyFile, MyPath, MyName As String
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")

' Returns filename with specified extension. If more than one *.INI
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")

' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir()

' Return first *.TXT file, including files with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)

' Display the names in C:\ that represent directories.
MyPath = "c:\"   ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
    ' Use bitwise comparison to make sure MyName is a directory.
    If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
        ' Display entry only if it's a directory.
        MsgBox(MyName)
    End If
    MyName = Dir()   ' Get next entry.
Loop

備註

此 Dir 函式支援使用多字元（*）和單字元（?）萬用字元來指定多個檔案。

VbVolume 會回傳磁碟機的磁碟區標籤，而不是特定的檔案名稱。

你必須在第一次打電話Dir時提供。PathName 要取得下一個項目，你可以在沒有參數的情況下對該函式進行後續呼叫 Dir 。

Attributes參數列舉值如下：

另請參閱

• ChDir(String)
• ChDrive
• FileAttribute

public static string Dir(string Pathname, Microsoft.VisualBasic.FileAttribute Attributes = Microsoft.VisualBasic.FileAttribute.Normal);

public static string Dir(string PathName, Microsoft.VisualBasic.FileAttribute Attributes = Microsoft.VisualBasic.FileAttribute.Normal);

static member Dir : string * Microsoft.VisualBasic.FileAttribute -> string

static member Dir : string * Microsoft.VisualBasic.FileAttribute -> string

Public Function Dir (Pathname As String, Optional Attributes As FileAttribute = Microsoft.VisualBasic.FileAttribute.Normal) As String

Public Function Dir (PathName As String, Optional Attributes As FileAttribute = Microsoft.VisualBasic.FileAttribute.Normal) As String

參數

傳回

代表與特定模式或檔案屬性相符的檔案、目錄或資料夾名稱的字串，或磁碟的磁碟區標籤。

範例

這個範例使用了 Dir 這個函式來檢查某些檔案和目錄是否存在。

Dim MyFile, MyPath, MyName As String
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")

' Returns filename with specified extension. If more than one *.INI
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")

' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir()

' Return first *.TXT file, including files with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)

' Display the names in C:\ that represent directories.
MyPath = "c:\"   ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
    ' Use bitwise comparison to make sure MyName is a directory.
    If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
        ' Display entry only if it's a directory.
        MsgBox(MyName)
    End If
    MyName = Dir()   ' Get next entry.
Loop

備註

此 Dir 函式支援使用多字元（*）和單字元（?）萬用字元來指定多個檔案。 VbVolume 會回傳磁碟機的磁碟區標籤，而不是特定的檔案名稱。 你必須在第一次打電話Dir時提供。PathName 要取得下一個項目，你可以在沒有參數的情況下對該 Dir 函式進行後續呼叫。

另請參閱

• ChDir(String)
• ChDrive
• FileAttribute