Dir Function

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

Syntax:


Dir [(Text As String [, Attrib As Integer])]

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

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

Parameters:

рдкрд╛рда: рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдЦреЛрдЬ рдорд╛рд░реНрдЧ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рд╡рд╛ рдлрд╛рдЗрд▓ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рддрдкрд╛рдИрдБрд▓реЗ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рдкреНрд░рдХрд╛рд░реНрдп рдмреЛрд▓рд╛рдПрдХреЛ рдмреЗрд▓рд╛рдорд╛ рдпреЛ рддрд░реНрдХрд▓рд╛рдИ рдкрд╣рд┐рд▓реЛ рдкрдЯрдХ рдорд╛рддреНрд░ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред рдпрджрд┐ рддрдкрд╛рдИрдБрд▓реЗ рдЪрд╛рд╣реЗрдХреЛ рдЦрдгреНрдбрдорд╛, рддрдкрд╛рдИрдБ URLрд╕рдЩреНрдХреЗрддрдорд╛ рдорд╛рд░реНрдЧ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред

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

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

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

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

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

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

Please support us!