Dim I As Integer
Dim sPath As String
 
With File1
  sPath = .Path
  If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
 
  For I = 0 To .ListCount - 1
    Name sPath & .List(I) As sPath & CStr(I + 1)
  Next I
End With