我写了一个查找文件的模块,不用api也能根据通配符实现递归查找某文件夹及其子文件夹下所有文件,包括所有隐藏.系统.只读文件,运行速度也快.并且可以同时匹配多个通配符,多个通配符以";"分隔即可.现共享给大家,希望能对大家有所帮助. 代码如下:
function getallsubfiles(byval strparentfolder as string, byval patterns as string) as stringif strparentfolder = "" then exit functionscreen.mousepointer = 11 显示沙漏if right(strparentfolder, 1) <> "\" then strparentfolder = strparentfolder & "\"dim tem as string, dirs as string, arrpatternslcase() as stringpatterns = lcase(patterns)arrpatternslcase = split(patterns, ";") 可同时进行多个匹配,多个匹配以";"分隔 【程序编程相关:ORACLE 常用的SQL语法和数据对象】
模块开始option explicit-- by 同济黄正 http://websamba.com/hzhzhz -- 【推荐阅读:[DNN学习所得]让IE也能实现解压缩功】
... 下一页