<font color=green>' Füllen der File-Listbox</font>
Dim lCount As Long
Dim I As Long
Dim nBytes As Currency
Dim sPath As String
 
sPath = frm_admin.txt_artikeldarstellung.Text
file.Tag = sPath & IIf(Right$(sPath, 1) <> "\", "\", "")
 
<font color=green>' zunächst Anzahl Dateien ermitteln</font>
lCount = VBEX_FileCount(sPath, 1, "*.*", nBytes)
 
<font color=green>' Array dimensionieren</font>
ReDim sFiles(5000) As String
 
<font color=green>' Dateinamen ermitteln</font>
lCount = VBEX_FileList(sPath, 1, "*.*", sFiles(), nBytes)
For I = 0 To lCount
  file.AddItem sFiles(I)
Next I

<font color=green>' Datei via ShellExecute starten</font>
Private Sub file_DblClick()
  Dim sFile As String
 
  With file
    If .Listndex >= 0 Then
      sFile = .Tag + .List(.ListIndex)
      ShellExecute Me.hWnd, "Open", sFile, _
        vbNullString, vbNullString, vbNormalFocus
    End If
  End With
End Sub