Thanks!
Sample code from the scripting help file SCRIPT56.CHM:
Function ShowFolderList(folderspec)
Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function
-Paul Randall
- David
"Paul Randall" <pau...@aol.com> wrote in message
news:egTvbzTc...@TK2MSFTNGP05.phx.gbl...
"Paul Randall" <pau...@aol.com> wrote in message
news:egTvbzTc...@TK2MSFTNGP05.phx.gbl...
>