datei letzt gespeichert holen

Private Function GetSingleFile() As String
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
Dim pfad As String
pfad = Sheets("start").Cells(9, 2).Value   'pfad steht in tabelle Start
GetSingleFile = ""
' File filters
Filter = "Text Files (*.LST),*.LST," & _
"All Files (*.*),*.*"
' Default Filter to *.*
FilterIndex = 1
' Set Dialog Caption
Title = "Bitte wähle die zu importierende Datei"
' Select Start Drive & Path
ChDrive ("C")
'ChDir ("C:\Programme\CuteSoft\Protokoll\Spielprotokolle")
ChDir (pfad & "\Spielprotokolle")
With Application
' Set File Name to selected File
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
' Reset Start Drive/Path
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
' Exit on Cancel
If Filename = False Then
'MsgBox "No file was selected."
Exit Function
Else
GetSingleFile = Filename
End If
End Function
die zeile:
With Application
' Set File Name to selected File
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
' Reset Start Drive/Path
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
' Exit on Cancel
If Filename = False Then
'MsgBox "No file was selected."
Exit Function
Else
GetSingleFile = Filename
oeffnet mir das fenster mit dem ordner wo die dateien stehn.
da kann ich die datei markieren und auf oeffnen druecken.
das ganze funkt auch prächtig.
nun will ich aber nicht den ordner anzeigen zum auswählen sondern ich will die zuletzt gespeicherte datei direkt ansprechen. im dateinamen steht jeweis das datum mit zeit...z b Auto-protokoll-ID 05.03.28.20.33.59.LST
ich will also die zuletzt gespeicherte datei aus dem dateinamen filtern
oder aus zuletzt gespeichert am: ansprechen so dass das fenster mit dem ordner nicht geoeffnet werden braucht.
ich hoffe dass mir jemand sagen kann wie das geht..ohne das rad neu zu erfinden ...hmmm
gruesse von der schweizer grenze
roland_k