søge i undermapper
hej jeg har en rutine der søger efter givne filer i en mappe kan man udvide den så den også søger i undermapper og hvordan ..kald
////////////////
Private Sub Command6_Click()
Dim searchpath As String
searchpath = "O:\"
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
FindFile "ac_", "ac", fso.GetFolder(searchpath)
Read
End Sub
////////////
min filsøgerutine
////////////////////
Public Sub FindFile(Search As String, Search2 As String, folder As Scripting.folder)
Dim tmpFile As Scripting.File
If folder.Files.Count = 0 Then
MsgBox "ingen filer i denne mappe"
Else
If folder.Files.Count > 0 Then
For Each tmpFile In folder.Files
If LCase(Right(tmpFile.Name, 3)) = LCase(Search) Then
MsgBox "Fil fundet : " & tmpFile.Name
'Mere kode - f.eks. smid den over i et array
Else
If LCase(Right(tmpFile.Name, 3)) = LCase(Search2) Then
MsgBox "Fil fundet : " & tmpFile.Name
End If
End If
Next
End If
End If
End Sub
