Liste filer på diskdrev vha vba

Prøv at se http://www.eksperten.dk/spm/916623 #9 - ganske vist lidt andet formål - men underliggende mapper findes via resursiv metode.

Kunne det bruges?

Hej Supertekst.

Koden du henvisser til er lidt mere "langhåret" end jeg regnede med - så jeg er stadig ved at "gnave mig igennem det".
Der er vist flere ting jeg kan lære undervejs ;-)

Jeg når vist desværre ikke så meget de næste par dage (arbejdsramt)  - men satser på "studietid" i weekenden.

100 tak foreløbig ;-)

mvh Kurt O-A

Hej KurtOA

Ja - nu var formålet også lidt anderledes - men ellers giver du blot signal - så finder vi ud af det.

og selv tak..

Har nu fundet en løsning på denne recursive søgemetode så alle undermapper ud fra en given rodmappe gennemsøges for en bestemt filtype:


Sub FileSearch()

c = 0
Dim sStartPath As String
Dim sWhat As String
Dim result As String


sStartPath = "C:\system\" 'Where?
sWhat = "*.xls" 'What?
result = DigIn(sStartPath, sWhat) 'First step
MsgBox result
MsgBox c


End Sub



Function DigIn(sPath As String, sWhat As String) As String



Dim fs As New FileSystemObject
Dim dDirs As Folder
Dim dDir As Folder
Dim fFile As File

Set dDirs = fs.GetFolder(sPath)


For Each dDir In dDirs.SubFolders
    DigIn = DigIn(dDir.Path, sWhat) ' Here is the recursion
Next
For Each fFile In dDirs.Files
        c = c + 1
    If fFile.ShortName = sWhat Then ' File checking
        DigIn = fFile.Path
        Exit Function ' You can remove that if you don't want to wait for all files
    End If
Next

End Function

Supertekst: Vil du ikke lægge et svar - for jeg ender med at bruge en blanding af dit forslag og denne i min løsning.
Og så på baggrund af dit forslag fået endnu bedre forståelse af VBA.

mvh & tak Kurt

Selv tak - fint det lykkedes..