Question

vbs 实现遍历盘内所有文件夹搜索某一类型的文件

比如想搜索F：盘里面所有文件夹下的.zip后缀名的文件，找到以后移动到e盘中，请问怎么写代码

Answer 1

用递归啊！但我懒得写递归代码，有点理不清关系。下面的代码同样可以实现你要的功能

Set obj = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from CIM_DataFile where Extension = 'zip'") 
For Each file in obj
    if file.drive = "f:" then
		createobject("scripting.filesystemobject").movefile file.name,"E:\" & file.filename & "." & file.Extension
	end if
Next