FileSystem.Dir メソッド

ソース:

FileSystem.vb

ソース:

FileSystem.vb

ソース:

FileSystem.vb

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 、複数のファイルを指定するために、複数文字 (*) と 1 文字 (?) のワイルドカードを使用できます。

VbVolume は、特定のファイル名ではなく、ドライブのボリューム ラベルを返します。

関数を PathName 初めて呼び出す場合は、 を指定する Dir 必要があります。 次の項目を取得するには、パラメーターを使用せずに関数を Dir 後続で呼び出すことができます。

引数列挙値は Attributes 次のとおりです。

こちらもご覧ください

• ChDir(String)
• ChDrive
• FileAttribute

ソース:

FileSystem.vb

ソース:

FileSystem.vb

ソース:

FileSystem.vb

[System.Runtime.Versioning.SupportedOSPlatform("windows")]
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);

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

[<System.Runtime.Versioning.SupportedOSPlatform("windows")>]
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

パラメーター

戻り値

指定されたパターンまたはファイル属性と一致するファイル名、ディレクトリ名、フォルダー名を表す文字列、またはドライブのボリューム ラベルを表す文字列。

属性

SupportedOSPlatformAttribute

例

この例では、 関数を 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 、複数のファイルを指定するために、複数文字 (*) と 1 文字 (?) のワイルドカードを使用できます。
VbVolume は、特定のファイル名ではなく、ドライブのボリューム ラベルを返します。
関数を PathName 初めて呼び出す場合は、 を指定する Dir 必要があります。 次の項目を取得するには、パラメーターなしで関数を Dir 後続呼び出すことができます。

こちらもご覧ください

• ChDir(String)
• ChDrive
• FileAttribute