AW: Dateien in einem Ordner umbenennen
12.09.2005 17:56:55
Matthias
Hallo Sören,
Sub Umbenennen(Endung As String) 'z.B. "pdf"
Dim fn As String, fn2 As String
Dim Verz As String
Verz = ThisWorkbook.Path 'Bei Bedarf anpassen
fn = Dir(Verz & "\*" & Endung)
Do While fn <> ""
Debug.Print fn
fn2 = Replace(fn, "ä", "ae")
fn2 = Replace(fn2, "ö", "oe")
fn2 = Replace(fn2, "ü", "ue")
fn2 = Replace(fn2, "Ä", "Ae")
fn2 = Replace(fn2, "Ö", "Oe")
fn2 = Replace(fn2, "Ü", "Ue")
fn2 = Replace(fn2, "ß", "ss")
Name Verz & "\" & fn As Verz & "\" & fn2
fn = Dir()
Loop
End Sub
Sub Test()
Umbenennen "pdf"
Umbenennen "htm"
End Sub
Gruß Matthias