Dim i As Integer
Dim sNewExt As String
Dim sPath As String
Dim sFile As String
 
sNewExt = ".new"
 
With File1
  sPath = .Path & IIf(Right$(.Path, 1) <> "\", "\", "")
  For i = 0 To .ListCount - 1
    sFile = Left$(.List(i), InStrRev(.List(i), ".") - 1)
    sFile = Replace(sFile, "sicherung.", "")
    Name sPath & .List(i) As sPath & sFile & sNewExt
  Next i
End With