vl-directory-files to make a list of only folders starting with numbers

[mroflam]

Im using the following code to create a list of folders under the project drive and save that list as a txt file. It works great, but I want to filter the results to be only folders that start with a 5 digit number. I have been reading about vl-directory-files all over the place but cant seem to find a filter example that does anything like what I want. In fact nearly all examples seem to be the same from site to site. 

(setq ListB (vl-directory-files "m:/" nil -1))

(setq fName "N:\\joblist.txt")
(setq f (open fName "w"))
(write-line (vl-prin1-to-string (acad_strlsort ListB)) f)
(close f)

Thank you for your help in advance! 

[ВeekeeCZ · Accepted solution]

That probably can't be filtered out directly, so use your own function.

(vl-remove-if-not '(lambda (x) (wcmatch x "#####*")) listb)

[mroflam]

When incorporated into my previous code as such below that worked like a charm. Thank you so much!

(setq ListB (vl-remove-if-not '(lambda (x) (wcmatch x "#####*")) (vl-directory-files "m:/" nil -1)))

(setq fName "N:\\joblist.txt")
(setq f (open fName "w"))
(write-line (vl-prin1-to-string (acad_strlsort ListB)) f)
(close f)