filesearch
volker
ich war ne weile ohne Excel, nun bin ich wieder in der alten Fa. und die (Ich) haben immer noch das selbe Problem mit dem "alten" filesearch.
Kann mir das jemand umschreiben? Die Beispiele die ich im Forum finde sind mir nicht klar genug, denn kein code ist gleich....der Code hängt bei SearchSubFolders (habe eine leerzeile vor und nach gesetzt)
Danke Volker
Sub BlätterLöschen()
'Dateien öffnen
Dim wks As Worksheet
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
'Application.ScreenUpdating= false
Application.DisplayAlerts = False
'Set fs = Application.FileSearch
lRow = 3~f~
'lRow = InputBox("Zeilen Nr. angeben")
Dim xl As BROWSEINFO, IDList As Long, RVal As Long, FolderName As String
With x1
~f~.SearchSubFolders = True 'mit Unterordner wenn =True+f~
~f~.Filename = "*.xls"~f~
~f~.LookIn = Range("D1").Value~f~
.Execute
~f~For iCounter = 1 To .FoundFiles.Count~f~
'Cells(lRow, 1).Value = .FoundFiles(iCounter)
If VBA.FileDateTime(.FoundFiles(iCounter)) < Now - 14 Then
~f~lRow = lRow
Workbooks.Open .FoundFiles(iCounter), False ' False unterdrückt Pop ups wie "Verknüpfungen aktualiesieren"
'unbeschriebene Beschlaglisten löschen