Here's some generic procs that drill for files in a specified folder
and any subfolders...

Sub DirDrillFldrs()
' Lists all files in a folder.
' Calls out to list all files in subfolders.

Dim vFldr, vFile, sTopFldr$

On Error GoTo Cleanup
sTopFldr = GetDirectory '//prompt user for parent folder
If sTopFldr = "" Then Exit Sub '//user cancels

Set vFldr =
CreateObject("Scripting.FileSystemObject").GetFold er(sTopFldr)
Debug.Print vFldr.Path
For Each vFile In vFldr.Files: Debug.Print vbTab & vFile.name: Next

DirDrillSubFldrs vFldr '//optionally drill each subfolder

Cleanup:
Set vFldr = Nothing
End Sub

Sub DirDrillSubFldrs(Folder)
' Lists all files in 'Folder'
' Recursively lists all subfolders/files

Dim vSubFldr, vFile, vFiles

On Error GoTo Cleanup
For Each vSubFldr In Folder.SubFolders
Debug.Print vSubFldr.Path

Set vFiles =
CreateObject("Scripting.FileSystemObject").GetFold er(vSubFldr.Path).Files

For Each vFile In vFiles: Debug.Print vbTab & vFile.name: Next
DirDrillSubFldrs vSubFldr
Next

Cleanup:
Set vFiles = Nothing
End Sub

Function GetDirectory$(Optional OpenAt, Optional Msg$)
' Returns the path of a user selected folder
' Note: By default, dialog opens at 'Desktop'
' Args:
' OpenAt Optional: Path to the dialog's top level folder
' Msg Optional: The dialog's title

If Msg = "" Then Msg = "Please choose a folder"
On Error Resume Next '//if user cancels
GetDirectory = CreateObject("Shell.Application").BrowseForFolder( 0,
Msg, &H40 Or &H10, OpenAt).Self.Path
End Function 'GetDirectory()

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion