GetDirectories – Returns all the subdirectories of a directory

GetDirectories – Returns all the subdirectories of a directory

' Returns a collection holding all the subdirectories in a path' that match search attributes (optionally it returns the entire path).Function GetDirectories(path As String, Optional Attributes As VbFileAttribute, _    Optional IncludePath As Boolean) As Collection    Dim dirname As String    Dim path2 As String        ' initialize the result    Set GetDirectories = New Collection        ' build the path name with a trailing backslash    path2 = path    If Right$(path2, 1) <> "" Then path2 = path2 & ""        ' start the search    dirname = Dir$(path2 & "*.*", vbDirectory Or Attributes)        Do While Len(dirname)        If dirname = "." Or dirname = ".." Then            ' exclude the "." and ".." entries        ElseIf (GetAttr(path2 & dirname) And vbDirectory) = 0 Then            ' ignore regular files        Else            ' this is a directory            ' include the path if requested            If IncludePath Then dirname = path2 & dirname            GetDirectories.Add dirname, dirname        End If        ' get next string        dirname = Dir$    Loop  End Function

See also  Why ChatGPT Is So Important Today

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist