' zunächst die benötigten API-Deklarationen
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Sub File1_DblClick()
  Dim sPath As String
 
  With File1
    If .ListIndex >= 0 Then
      sPath = .Path & IIf(Right$(.Path, 1) <> "\", "\", "")
      ShellExecute Me.hWnd, "open", sPath & .List(.ListIndex), "", "", 1
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de