Get List of Folders

Date: 02-16-2022

Return to Index

 
Sub GetFolders_Unused(ParentFolder$)
   Local temp$
   FolderCount = 1 : FileCount = 0
   ReDim Folders(250), Files(0)
   temp$ = Dir$("*.*", Only %SubDir, To Folders(FolderCount))
   While Len(temp$)
      Incr FolderCount
      temp$ = Dir$(Next, To Folders(FolderCount))
   Wend
   ReDim Preserve Folders(FolderCount-1)
End Sub
 

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm