Re: Auswahl aktueller Dateien
18.07.2002 06:42:02
Coach
Hallo Lutz,das geht mit folgender VBA-Funktion:
Function AktuellsteDatei(Pfad, Dateimaske As String) As String
Application.Volatile
Dim Datei As FileSearch
Dim Letzte As String
Dim i As Integer
On Error Resume Next
AktuellsteDatei = ""
Set Datei = Application.FileSearch
With Datei
.NewSearch
.Filename = Dateimaske
.LookIn = Pfad
.SearchSubFolders = False
.LastModified = msoLastModifiedAnyTime
If .Execute(msoSortByFileName, msoSortOrderAscending, True) > 0 Then
AktuellsteDatei = .FoundFiles(1)
End If
End With
End Function
Aufruf z.B. mit
AktuellsteDatei("C:\Meine", "Mappe*.xls")
Liefert die Datei mit dem "größten" Namen. Man kann auch
msoSortByFileName gegen msoSortByLastModified tauschen, dann ist es die zuletzt geänderte Datei.
Gruß Coach