File-Directory / Beitrag Nepomuk

Public Sub RepairFilenames() Const FOLDER_PATH As String = "G:\Eigene Dateien\Eigene Musik\" 'Anpassen !!! Dim strOldName As String, strNewName As String strOldName = Dir$(FOLDER_PATH & "*.*") Do Until strOldName = vbNullString strNewName = LCase$(strOldName) strNewName = Replace$(strNewName, " ", "_") strNewName = Replace$(strNewName, "ä", "ae") strNewName = Replace$(strNewName, "ö", "oe") strNewName = Replace$(strNewName, "ü", "ue") strNewName = Replace$(strNewName, "ß", "ss") Name FOLDER_PATH & strOldName As FOLDER_PATH & strNewName strOldName = Dir$ Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Johanna,
das Makro ersetzt alle Sonderzeichen durch einen _. Ist das ok?

Option Explicit

Public Sub RepairFilenames()

    Const FOLDER_PATH As String = "G:\Eigene Dateien\Eigene Musik\" 'Anpassen !!!

    Dim strOldName As String, strNewName As String
    Dim objRegEx As Object

    Set objRegEx = CreateObject("VBScript.RegExp")

    With objRegEx
        .Global = True
        .Pattern = "[^a-z0-9_-]"
        .IgnoreCase = True
    End With

    strOldName = Dir$(FOLDER_PATH & "*.*")

    Do Until strOldName = vbNullString

        strNewName = LCase$(strOldName)
        strNewName = Replace$(strNewName, " ", "_")
        strNewName = Replace$(strNewName, "ä", "ae")
        strNewName = Replace$(strNewName, "ö", "oe")
        strNewName = Replace$(strNewName, "ü", "ue")
        strNewName = Replace$(strNewName, "ß", "ss")

        If objRegEx.Test(strNewName) Then _
            strNewName = objRegEx.Replace(strNewName, "_")

        Name FOLDER_PATH & strOldName As FOLDER_PATH & strNewName

        strOldName = Dir$

    Loop

    Set objRegEx = Nothing

End Sub

Gruß
Nepumuk

Hallo ?,
teste mal:

Option Explicit

Public Sub RepairFilenames()

    Const FOLDER_PATH As String = "G:\Eigene Dateien\Eigene Musik\" 'Anpassen !!!

    Dim strOldName As String, strNewName As String
    Dim strExtension As String
    Dim objRegEx As Object

    Set objRegEx = CreateObject("VBScript.RegExp")

    With objRegEx
        .Global = True
        .Pattern = "\W"
        .IgnoreCase = True
    End With

    strOldName = Dir$(FOLDER_PATH & "*.*")

    Do Until strOldName = vbNullString

        strNewName = LCase$(strOldName)
        strNewName = Replace$(strNewName, " ", "_")
        strNewName = Replace$(strNewName, "ä", "ae")
        strNewName = Replace$(strNewName, "ö", "oe")
        strNewName = Replace$(strNewName, "ü", "ue")
        strNewName = Replace$(strNewName, "ß", "ss")

        strExtension = Mid$(strNewName, InStrRev(strNewName, "."))

        strNewName = Left$(strNewName, Len(strNewName) - Len(strExtension))

        If objRegEx.Test(strNewName) Then strNewName = objRegEx.Replace(strNewName, "_")

        strNewName = strNewName & strExtension

        Name FOLDER_PATH & strOldName As FOLDER_PATH & strNewName

        strOldName = Dir$

    Loop

    Set objRegEx = Nothing

End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread