FileSearch und Datum als Selektion
03.04.2007 14:50:00
eres
mit nachfolgendem Code drucke ich die PDF-Files eines bestimmten Directories.
With Application.FileSearch
.NewSearch
.LookIn = sPath
.Filename = "*.pdf"
.Execute msoSortByFileName
For i = 1 To .FoundFiles.Count
Shell ("C:\Program Files\Adobe\Acrobat 7.0\Reader\acrord32.exe /p /h " & .FoundFiles(i))
Next i
End With
Kann ich den obigen FileSearch einschränken, so dass nur Dateien mit einem bestimmten Erstell-Datum oder Änderungsdatum ausgewählt werden ?
Alternativ könnte ich dies natürlich auch in der For Next - Schleife abfragen.
Beim FileSearch wäre die Selektion aber eleganter, da ich dann schon vor der For Next Schleife die Anzahl der zu druckenden Files kenne und diese z.B. in einer UF anzeigen lassen könnte.
Vielen Dank für jede Antwort im voraus.
Gruss
erwin