FileSystem.Dir メソッド

ソース:

FileSystem.vb

ソース:

FileSystem.vb

ソース:

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関数では、複数のファイルを指定するための複数文字 (*) ワイルドカードと単一文字 (?) ワイルドカードの使用がサポートされています。

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

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

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

こちらもご覧ください

• ChDir(String)
• ChDrive
• FileAttribute

ソース:

FileSystem.vb

ソース:

FileSystem.vb

ソース:

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

こちらもご覧ください

• ChDir(String)
• ChDrive
• FileAttribute