Rename filer fungerar inte för mig.

Med risk att jag har skrivit för mycket.

Via fso så rotar jag igenom en katalog, och om inte filerna är .asp så skall de renamas.

 Dim GammaltFilNamn As String, NyttFilNamn As String
    Dim Delar() As String, Del As String
    n = 0
     For Each g In fso.GetFolder(WebbPath & "\").Files
        If Right(g.Name, 3) <> "asp" Then
            Delar = Split(g.Name, ".")
            Del = Delar(0)
            
            GammaltFilNamn = WebbPath & "\" & g.Name
            NyttFilNamn = WebbPath & Del & ".asp"
            
                If Dir(NyttFilNamn) <> "" Then
                    'MsgBox "Filen existerar!!!"            
                Else
                    Name GammaltFilNamn As NyttFilNamn
                End If
        End If
     Next

Jag gör fel någonstans, men kan inte se det, det fungerar inte alls