Ich habe einen Ordner, in dem eine Variable Anzahl von pdf-Dateien sind. Kann ich mit einem Macro alle Dateien unbennenen? (unter unbenennen meine ich in diesem Fall, den alten Namen verkürzen auf die ersten 14 Zeichen)
Gruess ond Danke
de Bruno
Sub ttx()
Dim sFile As String
Const sPfad As String = "c:\test\pdf\" 'anpassen
sFile = Dir(sPfad & "*.pdf")
Do While sFile ""
Name sPfad & sFile As sPfad & Left(sFile, 14) & ".pdf"
sFile = Dir
Loop
End Sub