fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

beispiel

Uploader:	ThePuppetMaster
Datum/Zeit:	16.11.2007 20:08:52

#INCLUDE "DIR.BI"



DECLARE SUB GetFolders( Array() AS STRING )



DIM myFolders() AS STRING, i AS INTEGER

GetFolders( myFolders() )



FOR i = 1 TO UBOUND(myFolders)

   PRINT myFolders(i)

NEXT





SUB GetFolders( Array() AS STRING )

   DIM AS STRING  n

   DIM AS INTEGER a, i



   REDIM Array(0)



   n = DIR("*", fbDirectory + fbArchive, @a)

   IF LEN(n) = 0 THEN RETURN

   DO

      IF a AND fbDirectory THEN

         i += 1

         REDIM PRESERVE Array(i)

         Array(i) = n

      END IF

      n = DIR("", fbDirectory + fbArchive, @a)

   LOOP WHILE LEN(n)



END SUB

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.