Råkade ut för en krach och ingen backup gör att jag får göra om mitt project igen.

Det handlar om att renama filer.
<code>
RenameFil (oFile.Name) 'Här skickar jag in filnamnet till sub RenameFil

Public Sub RenameFil(FilNamn)
Dim Kolla As Variant
GammaltFilNamn = FilNamn
Kolla = Split(FilNamn, ".")

NyttFilNamn = Kolla(0) & ".asp"
If Dir(NyttFilNamn) <> "" Then
Exit Sub
ElseIf (GammaltFilNamn) <> "" Then
Name GammaltFilNamn As NyttFilNamn
End If

End Sub
</code>
Men jag tänker tydligen helt fel, jag får bara error (nu senast på name GammaltFilnamn As NyttFilNamn.

Någon bra idé?

Slarv av mig, den skulle naturligt vis ha hela sökvägen bara.