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 поддерживает использование подстановочных знаков из нескольких символов (*) и односимвого (?) для указания нескольких файлов.

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 поддерживает использование подстановочных знаков из нескольких символов (*) и односимвого (?) для указания нескольких файлов.
VbVolume возвращает метку тома для диска вместо определенного имени файла.
Необходимо указать PathName при первом вызове Dir функции. Чтобы получить следующий элемент, можно выполнить последующие вызовы Dir функции без параметров.

См. также раздел

• ChDir(String)
• ChDrive
• FileAttribute