TKSoft-Online

Public Declare PtrSafe Function VBEX_FileCount Lib "vbex32.dll" _
  Alias "VBFILECOUNT" ( _
  ByVal sPath As String, _
  nSubFolder As Integer, _
  ByVal sFilter As String, _
  nBytes As Currency) As Long
 
  Public Declare PtrSafe Function VBEX_FileList Lib "vbex32.dll" _
  Alias "VBFILELIST" ( _
  ByVal sPath As String, _
  nSubFolder As Integer, _
  ByVal sFilter As String, _
  sFiles() As String, _
  nBytes As Currency) As Long
 
' Ermittelt den reinen Dateinamen einer vollständigen Pfadangabe (Pfad + Dateiname)
Public Declare PtrSafe Function VBEX_GetFileFromPath Lib "vbex32.dll" _
  Alias "VBGETFILEFROMPATH" (ByVal sFilename As String) As String
 
' Ermittelt den Pfad eines übergebenen Dateinamens (Pfad + Dateiname)
Public Declare PtrSafe Function VBEX_GetPathFromFile Lib "vbex32.dll" _
  Alias "VBGETPATHFROMFILE" (ByVal sFilename As String) As String
 
  ' LW oder Pfadauswahl
Public Declare PtrSafe Function VBEX_SetAPath Lib "vbex32.dll" _
  Alias "VBGETFOLDERDLG" () As String

Private Sub cmd_OpenFolder_Click()
    Me.txtPath = GetAPfad()
End Sub
 
Private Sub cmd_ReadFiles_Click()
    If IsNull(Me.txtPath) Then
        MsgBox "Es wurde kein Pfad angegeben!", vbCritical + vbOKOnly, "Fehler"
        Exit Sub
    End If
    If IsNull(Me.txt_Filter) Then Me.txt_Filter = "*.*"
    ReadFilesArray BackSlash(Me.txtPath), Me.fra_Subfolder, Me.txt_Filter
    Me.lst_Files.Requery
End Sub