Namen ändern in Dateinamen

Public Function Reformat(s As String) As String
    Dim iComma As Integer
    Dim iSep1 As Integer, iSep2 As Integer
    Dim sPrefix As String, sPostfix As String
    Dim sFirst As String, sLast As String
        
    iComma = InStr(1, s, ",")
    
    ' Beistrich gefunden?
    If iComma > 0 Then
        ' Trennzeichen davor und danach finden
        iSep1 = InStrRev(s, "-", iComma)
        
        iSep2 = InStr(iComma, s, "-")
        If iSep2 = 0 Then ' kein Bindestrich
            iSep2 = InStr(iComma, s, ".")
        End If
        
        If iSep1 > 0 And iSep2 > 0 Then ' beide Trennzeichen gefunden
            sPrefix = Left(s, iSep1) + " "
            If iSep2 < Len(s) Then
                sPostfix = Mid(s, iSep2)
                If Left(sPostfix, 1) <> "." Then
                    sPostfix = " " + sPostfix
                End If
            Else
                sPostfix = ""
            End If
                
            
            sLast = Trim(Mid(s, iSep1 + 1, iComma - iSep1 - 1))
            sFirst = Trim(Mid(s, iComma + 1, iSep2 - iComma - 1))
            
            Reformat = sPrefix + sFirst + " " + sLast + sPostfix
        Else
            Reformat = s
        End If
        
    Else
        Reformat = s
    End If
End Function

Public Function ReformatCmd(s As String) As String
    ReformatCmd = "ren " + Chr(34) + s + Chr(34) + " " + Chr(34) + Reformat(s) + Chr(34)
End Function

dir /a-d /b > C:\musik.txt