Subfolder Recursion

Example scripts and tips (replaces Old Scripts & Tips archive)

Moderators: Dorian (MJT support), JRL, Phil Pendlebury

Post Reply
User avatar
Marcus Tettmar
Site Admin
Posts: 7378
Joined: Thu Sep 19, 2002 3:00 pm
Location: Dorset, UK
Contact:

Subfolder Recursion

Post by Marcus Tettmar » Mon Mar 17, 2014 3:48 pm

Here's a function which will get a list of sub folders by recursing through all sub folders in a specified path:

Code: Select all

Let>numSubDirs=0
ArrayDim>aSubDirs,numSubDirs
GoSub>getSubDirs,c:\temp

**BREAKPOINT**
ArrayCount>aSubDirs,total_dirs
MessageModal>There are %total_dirs% sub folders
//now look in the watch list at the aSubDirs array which contains entire recursive tree of sub folders 


SRT>getSubDirs
  Let>LOCALVARS=1
  Let>GFL_TYPE=1
  GetFileList>%getSubDirs_Var_1%\*.*,dirList
  Separate>dirList,;,dirs
  If>dirs_count>0
    Let>k=0
    Repeat>k
      Let>k=k+1
      Let>this_dir=dirs_%k%
      Let>LOCALVARS=0
      Let>numSubDirs=numSubDirs+1
      ArrayDim>aSubDirs,numSubDirs
      Let>aSubDirs_%numSubDirs%=this_dir
      Let>LOCALVARS=1
      GoSub>getSubDirs,this_dir
    Until>k=dirs_count
  Endif
END>getSubDirs
Marcus Tettmar
http://mjtnet.com/blog/ | http://twitter.com/marcustettmar

Did you know we are now offering affordable monthly subscriptions for Macro Scheduler Standard?

Post Reply
Sign up to our newsletter for free automation tips, tricks & discounts