Do loop until no more folder is found

[Piotr (Peter)]

Hi,

I'm writing on behalf of my colleague who needs to write a loop that opens
folders within a folder X until no furhter folder is found in that folder X.

Any help highly appreciated.

 

[Allen Browne]

To list the files (including folders) see help with Dir. After setting it
up, you just use Dir repeatedly until it returns a zero-length string.

To test if it's a folder, test:
If (GetAttr(strFile) And vbdirectory) = vbDirectory

Example of testing for a folder:
http://allenbrowne.com/func-11.html

Example of listing files recursively:
http://allenbrowne.com/ser-59.html

 

[Jack Leach]

You can do this using the Dir() function an applying the vbDirectory
constant. I don't have time to fully test a loop to do this at the moment,
but that would be the route to go. You may find this link useful...

http://www.allenbrowne.com/ser-59.html

--
Jack Leach
www.tristatemachine.com

"I haven''t failed, I''ve found ten thousand ways that don''t work."
-Thomas Edison (1847-1931)

 

[Alex Dybenko]

Hi,
something like this:

strFolder = dir("c:\", vbdirectory)
do while len(strFolder)>0
debug.print strFolder
strFolder=dir
loop

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[Piotr (Peter)]

Thanks Alex for this. It has been slightly amended so that the code ignores
folders "." and "..", which are normally taken into account due to the way
the code "sees" folders and I presume is back to DOS era (code below).

Dim strFolder As String

strFolder = Dir(fnWskazFolder, vbDirectory)
Do While Len(strFolder) > 0
If strFolder = "." Then
strFolder = Dir
End If
If strFolder = ".." Then
strFolder = Dir
End If

Debug.Print strFolder
strFolder = Dir
Loop


Thanks everybody for your contribution.

Regards,
Peter