Dim sFile As String
  Dim iPos As Integer
  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
      If .Selected(I) Then
        sFile = .List(I)
        iPos = InStrRev(sFile, ".")
        If iPos > 0 Then
          <font color=green>' - einfügen</font>
          Mid$(sFile, iPos, 1) = "-"
        End If
 
        sFile = sFile & ".ace"
 
        Name sPath & .List(I) As sPath & sFile
      End If
    Next I
  End With