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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen