Filescripting looping through folders and files 2

[Chance1234]

Sub sub_testdata()

Dim FsO As FileSystemObject
Dim fld As Folder
Dim fld2 As Folders
 Dim fiL As File

Set FsO = New FileSystemObject
Set fld = FsO.GetFolder("H:\Inv\pls\")

For Each fiL In fld.Files
    Debug.Print fiL.Name
Next


End Sub

That works fine, but in the folder pls there are several more folders which contain several more folders etc etc.

what do i need to do so i can go through every one of these folders /

Chance,

Filmmaker, gentleman and soon to be a mac user

http://WWW.5YLAC.S5.COM

,

http://WWW.HOWTOBESPOOKY.CO.UK

 

[ClydeDoggie]

Make it recursive.

'Declare global variable
Public FsO As FileSystemObject

'Trigger sub
Sub ShowAllFiles
Set FsO = New FileSystemObject
ShowFiles(FsO.GetFolder("H:\Inv\pls\"))
set FsO = Nothing
end sub

'Master function
Public Sub ShowFiles (fldr as Folder)

Dim fld As Folder
Dim fiL As File

For Each fiL In fldr.Files
Debug.Print fiL.Name
Next

For Each fld in fldr.Folders
ShowFiles(fld)
Next fld

End Sub

Pete

 

[Chance1234]

gettinga type mimatch on the

Public Sub ShowFiles (fldr as Folder)

line can;t see why either

Chance,

Filmmaker, gentleman and soon to be a mac user

http://WWW.5YLAC.S5.COM

,

http://WWW.HOWTOBESPOOKY.CO.UK

 

[PHV]

And what about this ?
Public FsO As FileSystemObject

'Trigger sub
Sub ShowAllFiles()
Set FsO = New FileSystemObject
ShowFiles FsO.GetFolder("H:\Inv\pls\")
Set FsO = Nothing
End Sub

'Master function
Public Sub ShowFiles(fldr As Folder)
Dim fld As Folder
Dim fiL As File
For Each fiL In fldr.Files
Debug.Print fiL.Name
Next
For Each fld In fldr.SubFolders
ShowFiles fld
Next fld
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Chance1234]

Aha! those pesky one line's that make all the difference. thanks a lot

Chance,

Filmmaker, gentleman and soon to be a mac user

http://WWW.5YLAC.S5.COM

,

http://WWW.HOWTOBESPOOKY.CO.UK