Namen Kürzen
02.11.2023 18:11:41
Pitt
habe einen Code mit dem ich die Namen der CSV Datein kürzen möchte.
"C:\Users\paub\Downloads\Autoübersicht_Autopapiere_011123_1234.c
Hier sollen hinten die Zahlen weg, die aber immer anders sein können.(011123_1234)
Es soll nur Autoübersicht_Autopapiere.csv stehen bleiben.
Habe es mit (*) versucht, aber geht nicht.
Es handelt sich immer um eine Datei.
Danke
Sub DateinamenKürzen()
Dim DateiPfad As String
Dim Dateiname As String
Dim NeuerDateiname As String
Dim DateiErweiterung As String
Dim NeuerDateipfad As String
Dim PfadTrenner As String
' Setzen Sie den Dateipfad
DateiPfad = "C:\Users\paub\Downloads\Autoübersicht_Autopapiere_011123_1234.csv"
' Ermitteln des Pfadtrenners (abhängig vom Betriebssystem)
If InStr(1, DateiPfad, "\") > 0 Then
PfadTrenner = "\"
ElseIf InStr(1, DateiPfad, "/") > 0 Then
PfadTrenner = "/"
End If
' Extrahieren des Dateinamens und der Erweiterung
Dateiname = Mid(DateiPfad, InStrRev(DateiPfad, PfadTrenner) + 1)
DateiErweiterung = Right(Dateiname, Len(Dateiname) - InStrRev(Dateiname, "."))
' Erzeugen des neuen Dateinamens (ohne die letzten 12 Zeichen)
NeuerDateiname = Left(Dateiname, Len(Dateiname) - 16) ' 12 entspricht den zu entfernenden Zeichen
' Zusammensetzen des neuen Dateipfads
NeuerDateipfad = Left(DateiPfad, Len(DateiPfad) - Len(Dateiname)) & NeuerDateiname & "." & DateiErweiterung
' Aktualisieren des Dateinamens
Name DateiPfad As NeuerDateipfad
MsgBox "Dateiname wurde gekürzt: " & NeuerDateipfad
End Sub
Gruß Pitt
