Sub
Dateiliste_Neu()
Dim
strPfad
As
String
, StrDatei
As
String
, strTyp
As
String
Dim
strName
As
String
, strNeu
As
String
, daZeit
As
Date
strPfad = "C:\Eigene Dateien\Ordner\Unterordner\"
strTyp =
"*.csv"
strName = Dir(strPfad & strTyp)
strNeu = strName
If
strName <>
""
Then
daZeit = FileDateTime(strPfad & strName)
Do
While
strName <>
""
If
daZeit < FileDateTime(strPfad & strName)
Then
daZeit = FileDateTime(strPfad & strName)
strNeu = strName
End
If
strName = Dir
Loop
MsgBox
" Die jüngste Datei ist "
& strNeu
Workbooks.Open strPfad & strNeu
Else
MsgBox
"Es ist keine Datei vom Typ "
& strTyp &
" vorhanden."
End
If
End
Sub