Dateiname "."
26.07.2021 11:34:34
Darius
ich habe ein Problem mit einem VBA-Makro-Code, welches die jüngste Datei/Ordner in einem Ordner suchen soll. Wenn ich mein Makro starte sucht es mir den jüngsten Ordner gibt aber nicht den richtigen Dateiname/ Ordnername aus, sodern ".". Ich verstehe nicht warum, oder woher das kommt. Wenn ich noch Zusätze eingebe, wie z.B. soll enthalten "-21-" oder "Auswertung" funktioniert es einwandfrei. Nur ohne Beschränkung funktioniert es nicht ganz wie ich es will.
Anbei der Code:
Sub Neuster_Ordner()
Dim Speicherpfad As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = "Wo soll die aktuelle Datei gespeichert werden?"
.ButtonName = "Auswählen"
.Show
If .SelectedItems.Count > 0 Then
Speicherpfad = .SelectedItems(1) & "\"
End If
End With
Dateiname = Dir(Speicherpfad & "", vbDirectory) 'Eingabe von "*Auswertung*" funktioniert anstelle von ""
Dateiname_neu = Dateiname
Zeit = FileDateTime(Speicherpfad & Dateiname)
Do While Dateiname ""
If Zeit LG Darius