' 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 Command1_Click()
  ' Dokument öffnen
  Dim sFile As String
  Dim sPath As String
 
  ' Netzwerkpfad
  sPath = "\\Server\Ordner1\Ordner2\Ordner3\"
 
  ' Datei
  sFile = List1.Text & "\" & List2.Text
  ShellExecute Me.hWnd, "open", sFile, "", "", 1
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de