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

2024-12-26 12:55:50

推荐回答（1个）

回答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