Auswahl aktueller Dateien

Forumthread: Auswahl aktueller Dateien
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Auswahl aktueller Dateien

17.07.2002 21:04:47

Lutz

Hallo,

ich benötige ein kleines Tool, mit dem ich aus einem Ordner die jeweils neueste Datei herauslesen kann. Also "Mappe020102.xls" ist neuer als "Mappe020101.xls" usw. Die Dateien sind immer fast identisch, in einer anderen Datei sollen lediglich die Verknüpfungen auf die neuerer gesetzt werden (wie das geht, weiss ich.)

Beste Grüße

Lutz H. Janne

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Auswahl aktueller Dateien

18.07.2002 08:42:02

Coach
Re: Auswahl aktueller Dateien

18.07.2002 08:42:03

Coach
Re: Auswahl aktueller Dateien

18.07.2002 08:42:15

Hajo_Zi

Re: Auswahl aktueller Dateien

18.07.2002 08: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

Re: Auswahl aktueller Dateien

18.07.2002 08:42:03

Coach

Hallo Lutz,

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

Re: Auswahl aktueller Dateien

18.07.2002 08:42:15

Hajo_Zi

Hallo Lutz

so ganz klar ist mir nicht was Du willst. Mit folgendem Makro kannst Du die neuste Datei in einem Verzeichnis feststellen

Gruß Hajo

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!