Dir/Dateifinden- griechische Buchstaben/Datum
Max
mein problem ist, daß ich in einem Ordner die aktuellste Datei eines Typs finden muß, und meine bisherigen Lösungsversuche an den griechichen Buchstaben am Ende der Dateinamen scheitern.
Das Beste was ich im Forum finden konnte war dieser Beitrag https://www.herber.de/forum/archiv/196to200/t197136.htm
, auf dem auch mein Macroprototyp basiert:
Sub Dateiliste()
' erstellt von Hajo Ziplies 24.12.02
' Dateiliste für ein Verzeichnis ohne Unterverzeichnisse
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = Sheets("B").Range("BF173")
StrTyp = "*.xlsm"
Dateiname = Dir(strVerzeichnis & StrTyp)
I = 0
Do While Dateiname ""
Range("PosS").Offset(I, 0).Value = strVerzeichnis & Dateiname
Range("PosS").Offset(I, -1).Value = Zeit
I = I + 1
Dateiname = Dir
Loop
End Sub
Hiermit kriege ich eine vollständige Liste, bei der allerdings ungefähr die Hälfte der griechischen Buchstaben mit ? dargestellt werden.
Mit FileDateTime(strVerzeichnis & Dateiname) den dateinamen in der Liste ihr Änderungsdatum zuzuordnen, scheitert ebenfalls am Buchstabendilemma.
Existiert ein Workaround oder bessere Methoden?
Gruß
Max