[技术讨论] VBS如何获取开头相同的所有文件名？

zhitingye

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

jyswjjgdwtdtj

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

newswan

办法就是

dir /s /b disk*
复制代码

jyswjjgdwtdtj

foldername=wscript.arguments.named.item("foldername")
front=wscript.arguments.named.item("front")



const filterflag=32
set shell=createobject("shell.application")
set re=createobject("vbscript.regexp")
re.pattern="$"&front
re.ignorecase=true
set nowfolder=shell.namespace(foldername)
call filetree(nowfolder)
sub filetree(fdobject)
	set items=fdobject.items()
	items.filter filterflag,"*" 
	for each item in items
		if re.test(item.name) then wscript.echo item.path
		call filetree(item.getfolder)
	next
end sub
复制代码

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