Dir Function

рд░рдирдЯрд╛рдЗрдо, рд╡рд╛ рд╕рдмреИ рдлрд╛рдЗрд▓рд╣рд░реВрдХреЛ рд░ рддреНрдпреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЦреЛрдЬреА рдорд╛рд░реНрдЧрдорд╛ рдЬреЛрдбрд╛ рдорд┐рд▓реНрдиреЗ рдбреНрд░рд╛рдЗрднрдорд╛ рд╡рд╛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рднрдПрдХрд╛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рдлрд╛рдЗрд▓рдХреЛ рдирд╛рдо рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

Syntax:


Dir [(PathName As String [, Attributes As Integer])]

Return value:

рд╕реНрдЯреНрд░рд┐рдЩ

Parameters:

PathName: Any string expression that specifies the search path, directory or file. This argument can only be specified the first time that you call the Dir function. If you want, you can enter the path in URL notation.

Attributes:Any integer expression that specifies bitwise file attributes. The Dir function only returns files or directories that match the specified attributes. You can combine several attributes by adding the attribute values:

реж : рд╕рд╛рдорд╛рдиреНрдп рдлрд╛рдЗрд▓рд╣рд░реВ

резрем : рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реАрдХреЛ рдирд╛рдо рдорд╛рддреНрд░ рдлрд┐рд░реНрддрд╛ рдЧрд░реНрджрдЫ ред

рдпрджрд┐ рдлрд╛рдЗрд▓ рд╡рд╛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рдЕрд╡рд╕реНрдерд┐рдд рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдХреНрд▓рд┐рдХ рдЧрд░реНрдирд▓рд╛рдИ рд╡рд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реАрдорд╛ рд╕рдмреИ рдлрд╛рдЗрд▓ рд░ рдлреЛрд▓реНрдбрд░рд╣рд░реВ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдпреЛ рд╡рд┐рд╢реЗрд╖рддрд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред

рдЬрд╛рдБрдЪ рдЧрд░реНрдирд▓рд╛рдИ рдпрджрд┐ рдлрд╛рдЗрд▓ рдЕрд╡рд╕реНрдерд┐рдд рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреБрд░реНрдг рдорд╛рд░реНрдЧ рд░ рдлрд╛рдЗрд▓рдХреЛ рдирд╛рдо рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдпрджрд┐ рдлрд╛рдЗрд▓ рд╡рд╛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реАрдХреЛ рдирд╛рдо рдЕрд╡рд╕реНрдерд┐рдд рдирднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╢реВрдиреНрдп рд▓рдореНрдмрд╛рдЗ рд╕реНрдЯреНрд░рд┐рдЩ ("") рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

To generate a list of all existing files in a specific directory, proceed as follows: The first time you call the Dir function, specify the complete search path for the files, for example, "D:\Files\*.ods". If the path is correct and the search finds at least one file, the Dir function returns the name of the first file that matches the search path. To return additional file names that match the path, call Dir again, but with no arguments.

To return directories only, use the attribute parameter. The same applies if you want to determine the name of a volume (for example, a hard drive partition).

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

53 рдлрд╛рдЗрд▓ рдлреЗрд▓рд╛ рдкрд░реЗрди

Example:


Sub ExampleDir
' рд▓реЗ рд╕рдмреИ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рд░ рдлрд╛рдЗрд▓рд╣рд░реВ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрджрдЫ ред
Dim sPath As String
Dim sDir As String, sValue As String
    sDir="рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реАрд╣рд░реВ:"
    sPath = CurDir
    sValue = Dir$(sPath + getPathSeparator + "*",16)
    Do
        If sValue <> "." And sValue <> ".." Then
            If (GetAttr( sPath + getPathSeparator + sValue) And 16) >0 Then
                ' рд▓реЗ рдбрд╛рдЗрд░реЗрдХреНрдЯреНрд░рд╣рд░реВ рдкрд╛рдПрдХреЛ рдЫ
                sDir = sDir & chr(13) & sValue
            End If
        End If
        sValue = Dir$
    Loop Until sValue = ""
    MsgBox sDir,0,sPath
End Sub