Thanks Bob, but I'm getting a runtime error on the
Set Folder = objFSO.GetFolder(sPath)
call.
Runtime error '424'
Object required
Any thoughts? I can see the path being retained in the
(sPath) variable. I don't think I should need a plugin
for this one (Office XP).
Thanks in advance,
Mike
-----Original Message-----
Mike,
This simple script should do it
Sub LoopFolders()
Dim i As Integer
Set objFSO = CreateObject
("Scripting.FileSystemObject")
iRow = 0
iLevel = 0
selectFiles "c:\Windows"
Set objFSO = Nothing
End Sub
'--------------------------------------------------------
-------------------
Sub selectFiles(sPath)
'--------------------------------------------------------
-------------------
Dim Folder As Object
Dim Files As Object
Dim file As Object
Dim fldr
Set Folder = objFSO.GetFolder(sPath)
iRow = iRow + 1
iLevel = iLevel + 1
Cells(iRow, iLevel) = Folder.Path
For Each fldr In Folder.subfolders
selectFiles fldr.Path
Next
iLevel = iLevel - 1
End Sub
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Mike" wrote in message
...
Good Morning all,
I hope you're all having a great day. I have been
given
the task of creating a database of applications on CD
into Excel and I'm wondering if there is a VB function
that will output Root and sub folder names. I don't
need
files contained in the folders, just folder names.
Preferably, I'd like to have 1 row for ever instance
of a
folder:
Row1: Root1
Row2: Root1 Sub1
Row3: Root1 Sub1 Sub2
Row4: Root1 Sub1 Sub3 Sub3
Row5: etc...
Any ideas on how to go about doing this?
Thanks in advance and have a great one,
Mike
.