Excel Dateien umbenennen
16.03.2016 14:28:07
Tom
wie muss ich den Code umschreiben, damit nur die 9 Stelle von links, der Dateinamen von "_" auf "-" geändert wird?
gruß tom
Sub Dateien_umbenennen()
Dim Pfad As String
Pfad = "C:\Dateien umbenennen\x\"
Name = Dir(Pfad)
Do Until Name = ""
Name Pfad & Name As Pfad & Left(Name, 2) & ".#" & Mid(Name, 5, 2) & Mid(Name, 7, 2) & _
Right(Name, Len(Name) - 8)
Name = Dir()
Loop
End Sub