Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Änderungsdatum einer Datei

Änderungsdatum einer Datei
18.08.2004 13:29:16
Ingo
Hallo,
ich möchte aus einem Verzeichnis die jeweils neueste Datei kopieren. Also muss ich diese ersteinmal finden.
Wie finde ich die neueste Datei in einem Verzeichnis?
Da gibt es bestimmt eine Funktion, aber welche?
Vielen Dank!
Ingo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungsdatum einer Datei
18.08.2004 13:40:28
Ingo
Ah,
eine Funktion habe ich doch noch gefunden:
FileDateTime(filename)
Jetzt brauche ich noch ein Funktion, die alle Dateien in einem Verzeichnis durchforstet und den Namen mit dem jüngsten Datum findet......
AW: Änderungsdatum einer Datei
18.08.2004 14:22:18
Ingo
Ok, habs auch selber gefunden.
Es hilft schon, wenn man laut drüber nachdenkt!
Wer den code effizienter machen kann, bitte an mich mailen.


Function find_latest_file()
Dim MyStamp As Date
Dim MyPath As String
Dim MyName As String
Dim MyLatestFile As String
MyPath = "L:\report\price_report\"  ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
MyStamp = #1/12/93 12:00:00 PM#
Do While MyName <> ""   ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If FileDateTime(MyPath & MyName) > MyStamp Then
MyStamp = FileDateTime(MyPath & MyName) 'store new latest timestamp
MyLatestFile = MyName ' new latest file
End If
End If
MyName = Dir    ' Get next entry.
Loop
MsgBox (MyLatestFile)
find_latest_file = MyPath & MyName
End Function

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige