Gennemse et helt folderhiraki for en bestemt filtype

Ja - søgemaskinen...
2 sek

Fx:

Smid en Filelist ind på din form, kald den FileList1, og brug følgende sub

Sub GetTextFiles()

Dim FS As FileSearch
Dim FilePath As String
Dim i As Integer
Dim filelist()
Const Filespec = "*.jpeg"  'udfyldes af bruger
FilePath = "C:\"          'udfyldes af bruger
Set FS = Application.FileSearch
With FS
  .LookIn = FilePath
  .Filename = Filespec
  .SearchSubFolders = True
  .Execute
  If .FoundFiles.Count = 0 Then
      MsgBox ("Ingen filer fundet")
      Exit Sub
  End If
  ReDim filelist(.FoundFiles.Count)
  For i = 1 To .FoundFiles.Count
    'filelist(i) = Split(.FoundFiles(i), Application.PathSeparator)
    filelist(i) = FoundFiles(i)
  Next
End With
End Sub

Hvis du ikke vil bruge Application.FileSearch, kan du lave din egen rekursive søgerutine - den kræver FSO, så du skal tilføje reference til MicroSoft Scripting Runtime:

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
FindFile pattern, fso.GetFolder(mappe)

Private Sub FindFile(pattern As String, folder As Scripting.folder)
Dim tmpFolder As Scripting.folder
Dim tmpFile As Scripting.File
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      FindFile pattern, tmpFolder
    Next
  End If
  If folder.Files.Count > 0 Then
    For Each tmpFile In folder.Files
      If InStr(1, tmpFile.Name, pattern) Then
        Debug.Print tmpFile.Path & "\" & tmpFile.Name
      End If
    Next
  End If
End Sub


Mulighederne er mange :o)

Eller et api-call:

http://www.mentalis.org/apilist/FindFirstFile.shtml
med tilhørende eksempel, som naturligvis skal modereres en smule:
http://www.mentalis.org/apilist/FindFirstFile.shtml#

Det virkede sku - tak for hjælpen Martin_moth!