aktuellste Datei öffnen
19.03.2006 11:42:09
thomas
ich habe bei meiner Recherche nachstehenden Code gefunden, indem immer die aktuellste Datei in einer MSG-Box angezeigt wird.
Sub Neueste_Datei()
Dim sName As String
Dim dDatum As Date
Dim Pfad As String
Dim dDatum_neu As Date
Dim sDatei As String
Pfad = "C:\Test\Daten\"
sName = Dir(Pfad & "*.csv")
dDatum_neu = FileDateTime(Pfad & sName)
sDatei = sName
Do While sName <> "" ' Schleife beginnen.
sName = Dir
If sName <> "" Then
dDatum = FileDateTime(Pfad & sName)
If dDatum > dDatum_neu Then
dDatum_neu = dDatum
sDatei = sName
End If
End If
Loop
MsgBox "die neueste Datei heißt: " & sDatei & " und ist vom " & dDatum_neu
End Sub
Wie kann ich nun aber statt die Anzeiger in einer MSG-Box diese Datei öffnen?
Wer kann mir bitte helfen.
Vielen Dank uns Gruß
Thomas