Private Sub File1_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  Dim sName As String
  Dim sPath As String
  Dim i As Integer
 
  With File1
    If Button = vbRightButton And .ListIndex >= 0 Then
      sName = InputBox("Neuer Name:", "Umbenennen", .List(.ListIndex))
      If sName <> "" And sName <> .List(.ListIndex) Then
        sPath = .Path & IIf(Right$(.Path, 1) <> "\", "\", "")
        Name sPath & .List(.ListIndex) As sPath & sName
        .Refresh
 
        For i = 0 To .ListCount - 1
          If .List(i) = sName Then .ListIndex = i: Exit For
        Next i
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de