If you need a list of all the subfolders
all the way down...
AddExtender("wsrch34I.dll")
topdir="c:\incoming"
;xyz used as it is an uncommon extension
;we're not really looking for files
handle=srchInit(topdir, "*.xyz", "", "", 16+32)
dirlist=""
while 1
thisdir=srchNext(handle)
if thisdir=="" then break
;make sure it a dir and not an xyz file
if strsub(thisdir,strlen(thisdir),1) != "\" then continue
if dirlist=="" then dirlist=thisdir
else dirlist=StrCat(dirlist,@tab,thisdir)
endwhile
AskItemList("subfolders",dirlist,@tab,@unsorted,@single)
Article ID: W14552
Filename: Get a List of Subfolders.txt