Dateien umbenennen per VBA "_" ersetzen
14.04.2021 16:38:48
Max
ziel meines Makro soll sein, die ersten 15 Zeichen eines Dateinamen stehen zu lassen und den Rest zu löschen,
dass funktioniert auch...
jetzt würde ich noch gerne falls vorhanden unterstriche ("_") durch Leerzeichen (" ") ersetzen
Vielen Danke schonmal für eure Hilfe.
es geht um folgendes Makro:
Sub Dateien_Umbenennen()
Dim sFile As String
Dim sPfad As String
sPfad = InputBox("pfad einfügen", "Pfad", "\")
sFile = Dir(sPfad & "*.pdf")
Do While sFile ""
On Error GoTo loeschen
Name sPfad & sFile As sPfad & Left(sFile, 15) & ".pdf"
sFile = Dir
Loop
Exit Sub
loeschen:
Kill sPfad & Left(sFile, 15) & ".pdf"
Resume
End Sub