Private Sub cmd_Artikeldarstellung_Click()
file.Clear
    ' Füllen der File-Listbox
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) <> "\", "\", "")
 
' zunächst Anzahl Dateien ermitteln
lCount = CountFiles(sPath, 1, "*.*", nBytes)
 
' Array dimensionieren
ReDim sFiles(5000) As String
 
' Dateinamen ermitteln
lCount = GetFileList(sPath, 1, "*.*", sFiles(), nBytes)
For I = 0 To lCount
  file.AddItem sFiles(I)
Next I
 
 
 
   counter.Caption = file.ListCount & " Dateien"
    label.Caption = "Sie befinden sich im Ordner Artikeldarstellung"
End Sub