Private Function GetZipFileList(ByVal oItems As CSevZipItems) As Boolean
  ...
 
  oItems.RootDir = gfBS(App.Path) & "data"
  oItems.AddFolder gfBS(App.Path) & "data", , False
 
  '  For Each oFile In oFolder.Files
  '    Call oItems.AddFile(oFile.Path)
  '  Next oFile
 
  GetZipFileList = True
 
  ...
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de