Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
list a folder's subfolders in addition to it's files
- Thread starter MikeT
- Start date
JohnYingling
Programmer
Code:
Dim objFs as scripting.FileSystemObject
Dim objFolder as scripting.Folder
Dim objFolders as scripting.folders
Dim objFiles as scripting.Files
Set objfs = CreateObject("Scripting.Dictionary")
Set objFolder = objfs.GetFolder(strFoldername)
Set objFiles = objFolder.Files
Set objFolders = objFolder.SubfoldersJohnYingling
Programmer
For VBScript, take off the AS SCRIPTING..... from the Dims
- Status
Similar threads
- Locked
- Question
- Locked
- Question