get every folder on the drive! recurse sub folders directories

[dis1411]

nice n easy..

first click project -> references, and check Microsoft Scripting Runtime

Win 98 SE and before will need a newer version of scrrun.dll

Public Function GetFolders(sStartFolder As String) As String
    On Error Resume Next
    Dim fso As New FileSystemObject
    Dim f As Folder
    Dim fldr As Folder
    Set fldr = fso.GetFolder(sStartFolder)
    GetFolders = fldr.Path & vbCrLf
    If fldr.SubFolders.Count > 0 Then
        For Each f In fldr.SubFolders
            GetFolders = GetFolders & GetFolders(f.Path)
        Next
    End If
    If Err.Number = 92 Then GetFolders = vbNullString
    'windows did not allow the program to look inside this folder, so ignore it completely  (ie c:\system volume information in win2000)
End Function

note - the code got an edit recently... the following posts may or may not make sense

[Acidic]

can't you simply use the MS-DOS comand: tree
type:

tree /a >tree.txt

when you're on the C:\ in MSDOS prompt, then (using windows) open C:\tree.txt

[dis1411]

well good luck converting that output into something your program can use

[Archangel_B4U]

Could this code be alter to where it would read in every file in a directory?

[dis1411]

yes
add a file list (file1) to the project and set its visible property to false

Dim PathArr() As String
Dim TempDir As String
 
Private Sub Command1_Click()
        TempDir = "C:\"
 
        PathArr() = Split(GetFolders(TempDir), vbCrLf)
        
        For subs = 1 To UBound(PathArr)
            File1.Path = PathArr(subs)
            If File1.ListCount > 0 Then
                For files = 0 To File1.ListCount - 1
                    'add PathArr(subs) & "\" & File1.List(files) to something (textbox etc) 
                Next
            End If
        Next
End Sub

[Archangel_B4U]

Sweet that helps alot big TY.

[Spajeoly]

Originally posted by dis1411

note - the returned string will contain an extra vbCrLf at the beginning.. its not that bad cuz most likely youll split the string into an array and you can start at 1 instead of 0 when processing it

Just change your code one tiny bit to fix that, why don't you...

Private Function Getfolders(sStartFolder As String) As String
    Dim fso As New FileSystemObject
    Dim f As Folder
    Dim fldr As Folder
    Set fldr = fso.GetFolder(sStartFolder)
    Getfolders = fldr.Path & VbCrLf
    If fldr.SubFolders.Count > 0 And Getfolders <> "" Then
        For Each f In fldr.SubFolders
          Getfolders = Getfolders & Getfolders(f.Path)
        Next f
    End If
End Function

[dis1411]

yeah, but then youre left with an extra vbCrLf at the end..

the when you split the result into an array it's going to be the same size either way, but the vbCrLf will be at the beggining or the end

[manavo11]

yeah, but then youre left with an extra vbCrLf at the end..

Then at the end do :

Getfolders = Left$(Getfolders, Len(Getfolders) - 2)

[Evan]

[dis1411]

Originally posted by manavo11
Then at the end do :

Getfolders = Left$(Getfolders, Len(Getfolders) - 2)

obviously, yes

the point was that something extra has to be done either way

[manavo11]

Originally posted by dis1411
obviously, yes

the point was that something extra has to be done either way

Yeah, well, I don't see a problem in doing something extra since in both ways it would be needed anyway...

[Evan]

hm

[dis1411]

Originally posted by manavo11
Yeah, well, I don't see a problem in doing something extra since in both ways it would be needed anyway...

perhaps you took me wrong. i wasnt complaining that something extra has to be done, i was stating it.

if anyone were to have a 'problem' with taking out the vbcrlf, then their program would also problems

[manavo11]

Sorry, I misunderstood you... Anyway, all solved now

[MikkyThomeon]

There is a better way of doing this that does not include a reference to the scripting runtime lib. I once found it on these forums but I have now lost the idea.

Basically it is also a recorsive function, the first part populates an array of folders.For each folder, the list of files are returned. Next folder type of style...

If any1 has it then cool - please post the code or link here

[manavo11]

http://www.vbforums.com/showthread.p...hreadid=244880

[MikkyThomeon]

Thanks manavo

you hit the nail on my head!!

I

[dis1411]

for some reasion when i posted this i liked the FSO way over the Dir way.. i can't remember why anymore

[manavo11]

Originally posted by MikkyThomeon
Thanks manavo

you hit the nail on my head!!

I

dis1411, probably cause of the reference needed for FSO

[tward]

I seem to have found that Dir() seems to leave the directories open after you use it in Windows XP, so I changed all my Dirs to Use the FindFirst/FindNext/FindClose API Calls.....

[mosulii]

very goooooooooood
thanks