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