title image


Smiley Nimm vielleicht besser das FileSearch-Object
Hab da vor ein paar Tagen was gebastelt:





Public Function SearchFiles(strPathName As String, _

Optional bolSearchSubFolders As Boolean = True, _

Optional strFileName As String, _

Optional lngFileType As MsoFileType = msoFileTypeAllFiles, _

Optional strSearchText As String, _

Optional bolMatchTextExactly As Boolean = False, _

Optional lngLastModified As MsoLastModified = msoLastModifiedAnyTime, _

Optional lngSortBy As MsoSortBy = msoSortByFileName, _

Optional lngSortOrder As MsoSortOrder = msoSortOrderAscending) As Boolean



' Sucht parametrisiert Dateien und gibt diese im Direktfenster aus.

' Kann auch zu Löschzwecken und sonst. Weiterverarbeitungen verwendet werden

' (Code entsprechend erweitern!)



Dim fs As FileSearch

Dim i As Long



On Error GoTo SearchFilesErr



SearchFiles = False

Set fs = Application.FileSearch

With fs

.NewSearch

.LookIn = strPathName

.SearchSubFolders = bolSearchSubFolders

.FileName = strFileName

.FileType = lngFileType

.TextOrProperty = strSearchText

.MatchTextExactly = bolMatchTextExactly

.LastModified = lngLastModified

If .Execute(lngSortBy, lngSortOrder) > 0 Then

For i = 1 To .FoundFiles.Count

Debug.Print .FoundFiles(i)

Next i

End If

End With



SearchFiles = True





SearchFilesExit:

Set fs = Nothing

Exit Function



SearchFilesErr:

MsgBox Err.Description, vbCritical, "Function SearchFiles: Fehler " & Err.Number & " aufgetreten!"

Resume SearchFilesExit



End Function





Der Code benötigt einen Verweis auf die "MS Office Object Library", damit er brummt.



Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: