hi to all,

I'm looking for somethings looks like simple but..
i want to create a list of all subfolder of a certain folder.
No need to list file or others stuff..just get a list of folder and sub.

could you please help me?

many thanks in advance,

Frederic

http://groups.google.com/group/micro...4f306f5853b33#
--
Gary''s Student - gsnu200803


"fth" wrote:

hi to all,

I'm looking for somethings looks like simple but..
i want to create a list of all subfolder of a certain folder.
No need to list file or others stuff..just get a list of folder and sub.

could you please help me?

many thanks in advance,

Frederic

Hi Gary,

I get your code and try it but i don't have the expected result..

I have orror message like:

wrong number of arguments..

a idea?

best regards and many thanks for your help,

Frederic

"Gary''s Student" wrote:

http://groups.google.com/group/micro...4f306f5853b33#
--
Gary''s Student - gsnu200803


"fth" wrote:

hi to all,

I'm looking for somethings looks like simple but..
i want to create a list of all subfolder of a certain folder.
No need to list file or others stuff..just get a list of folder and sub.

could you please help me?

many thanks in advance,

Frederic

Hi,
Thanks for you help .;and you XLA

unfortunatly, i can't use it
it seems that my tree is too big ..

may be a idea to solve that?

many thanks in advance,

Frederic

"Chip Pearson" wrote:

My DirTree add-in does exactly that, and much more. See
http://www.cpearson.com/Excel/FolderTree.aspx .


--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)




"fth" wrote in message
...
hi to all,

I'm looking for somethings looks like simple but..
i want to create a list of all subfolder of a certain folder.
No need to list file or others stuff..just get a list of folder and sub.

could you please help me?

many thanks in advance,

Frederic

Sub MakeFolderList()
Call ListSubFoldersInFolder("C:\Program Files")
End Sub
'---
Function ListSubFoldersInFolder(ByRef strPath As String)
'Jim Cone - Portland, Oregon USA - September 2008
Dim oFSO As Object
Dim oFolder As Object
Dim oSubFldr As Object
Dim N As Long
Application.ScreenUpdating = False
N = 1
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(strPath)
Cells(N, 1).Value = oFolder.Path
N = N + 1

For Each oSubFldr In oFolder.Subfolders
Cells(N, 1).Value = oSubFldr.Name
N = N + 1
Call ListSubFolders(oSubFldr, N)
Next

Application.ScreenUpdating = True
Set oFSO = Nothing
Set oFolder = Nothing
End Function
'---
Function ListSubFolders(ByRef oParentFolder As Object, ByRef lngR As Long)
Dim oSubFolder As Object
For Each oSubFolder In oParentFolder.Subfolders
Cells(lngR, 2).Value = oSubFolder.Name
lngR = lngR + 1
ListSubFolders oSubFolder, lngR
Next 'oSubFolder
End Function
'---
Jim Cone
Portland, Oregon USA



"fth"
wrote in message
hi to all,
I'm looking for somethings looks like simple but..
i want to create a list of all subfolder of a certain folder.
No need to list file or others stuff..just get a list of folder and sub.

could you please help me?
many thanks in advance,
Frederic

Jim,

Many thanks, it was exactely what I'm looking for.
I just have to modifysome tips (cell in one column, full path ..)

I make a test with a very very big tree and let you know the result.

This code is the first step on what I have to do.

The next step is to read all the security parameters for each folder (user
or groups - for each, what is the security..)

If you have a idea..

many thanks to you (and to the others who gave me some good tracks)

Frederic

"Jim Cone" wrote:

Sub MakeFolderList()
Call ListSubFoldersInFolder("C:\Program Files")
End Sub
'---
Function ListSubFoldersInFolder(ByRef strPath As String)
'Jim Cone - Portland, Oregon USA - September 2008
Dim oFSO As Object
Dim oFolder As Object
Dim oSubFldr As Object
Dim N As Long
Application.ScreenUpdating = False
N = 1
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(strPath)
Cells(N, 1).Value = oFolder.Path
N = N + 1

For Each oSubFldr In oFolder.Subfolders
Cells(N, 1).Value = oSubFldr.Name
N = N + 1
Call ListSubFolders(oSubFldr, N)
Next

Application.ScreenUpdating = True
Set oFSO = Nothing
Set oFolder = Nothing
End Function
'---
Function ListSubFolders(ByRef oParentFolder As Object, ByRef lngR As Long)
Dim oSubFolder As Object
For Each oSubFolder In oParentFolder.Subfolders
Cells(lngR, 2).Value = oSubFolder.Name
lngR = lngR + 1
ListSubFolders oSubFolder, lngR
Next 'oSubFolder
End Function
'---
Jim Cone
Portland, Oregon USA



"fth"
wrote in message
hi to all,
I'm looking for somethings looks like simple but..
i want to create a list of all subfolder of a certain folder.
No need to list file or others stuff..just get a list of folder and sub.

could you please help me?
many thanks in advance,
Frederic