http://zwcad.com.tw/nick/lisp/lisp%B3t%AB%D7%B4%FA%B8%D5/Benches/Vl/vl-directory-files.lsp