UnderwareDESIGN

 Get All Files In Dir / Folder

 This PlayBASIC function fills an array with all the files found within the folder.



[pbcode]
path$=currentdir$()


 Dim Files$(1)
 FilesFound=GetAllFilesInDir(Files$(),path$)

 Print FilesFound
  For lp=0 to FilesFound-1
    f$=files$(lp)
    if len(f$)>50 then f$="..."+right$(f$,50)
  print f$
  Next

 Sync
 waitkey







Function GetAllFilesInDir(File$(),path$)
   oldpath$=currentdir$()
   Dim TempScanfolder$(500)
   do
 FilesFound,FoldersFound=Priv_Scanfolder(file$(),TempScanfolder$(),FilesFound,FoldersFound,path$)
 if FOldersFound>0
    dec FoldersFound
    path$=TempScanfolder$(FoldersFound)+"\"
 else
    exitdo   
 endif
   loop
   undim TempScanfolder$()  
   redim Files$(FilesFound)
   cd oldpath$
Endfunction FilesFound



` *=----------------------------------------------------------------=*
`           The following functions are just used in the process
` *=----------------------------------------------------------------=*

Function Priv_Scanfolder(file$(),Folder$(),FilesFound,FoldersFound,path$)
 FileArraySize   =GetArrayElements(Files$(),1)   
 FolderArraySize   =GetArrayElements(Files$(),1)   

 CD path$

 File$=FirstFile$(path$)
 While File$<>""
  if _FileLib_Screen_Filename(file$)
   Filename$=Path$+File$
    if FileType(filename$)=1
    ; Add the File
   if FilesFound=>FileArraySize   
      NewSize=FilesFound * 2
      if NewSize<250 then NewSize=250  
      ReDim Files$(NewSize)
      FileArraySize=getarrayelements(Files$(),1)   
   endif
   Files$(FilesFound)=Filename$
   inc FilesFound
    else
    ; Ad folder
   if FoldersFound=>FolderArraySize   
      NewSize=FoldersFound * 2
      if NewSize<1000 then NewSize=1000   
      Redim Folder$(NewSize)
      FolderArraySize=getarrayelements(Folder$(),1)   
   endif
   Folder$(FoldersFound)=Filename$
   inc FoldersFound
 endif
  endif
    File$=NextFile$()
 EndWhile
EndFunction FilesFound,FoldersFound


Function _FileLib_Screen_Filename(filename$)
 select filename$
    case ".", ".." , "\"
   exitfunction false
    default
   exitfunction true
 endselect
endFunction flag

[/pbcode]



 Related To:

   Get All Files In Folder (Sorted) (https://www.underwaredesign.com/forums/index.php?topic=3703.0)

   PlayBASIC Documentation - FILE COMMANDS (https://playbasic.com/help.php?page=FILES.INDEX)