VBS如何获取开头相同的所有文件名？

zhitingye

电脑大概有20W文件夹需要找出指定开头的目录文件名，请教各位高手有什么好办法

jyswjjgdwtdtj

那就遍历呗
如果20w文件夹都在一个文件夹里 那估计得卡死

newswan

办法就是

1. dir /s /b disk*

复制代码

jyswjjgdwtdtj

1. 
   
2. foldername=wscript.arguments.named.item("foldername")
   
3. front=wscript.arguments.named.item("front")
   
4. 
   
5. 
   
6. 
   
7. const filterflag=32
   
8. set shell=createobject("shell.application")
   
9. set re=createobject("vbscript.regexp")
   
10. re.pattern="$"&front
    
11. re.ignorecase=true
    
12. set nowfolder=shell.namespace(foldername)
    
13. call filetree(nowfolder)
    
14. sub filetree(fdobject)
    
15.         set items=fdobject.items()
    
16.         items.filter filterflag,"*"
    
17.         for each item in items
    
18.                 if re.test(item.name) then wscript.echo item.path
    
19.                 call filetree(item.getfolder)
    
20.         next
    
21. end sub
    

复制代码

顶呱呱好用
接受参数：selectfolder.vbs "/foldername:c:/program files" "/front:balabala"
当然你也可以自己改一下