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
    Dim th As Integer
 
    th = TextHeight("X")
    i = File1.ListIndex
    If Y < i * th Or Y > (i + 1) * th Then Exit Sub
 
    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
                    End If
                Next i
            End If
        End If
    End With
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1