Question

vbs脚本 我要复制i盘的所有word文件（包括i盘子文件夹内的word文件），应该怎么做？

fso.copyfile "i:\"
就是在这里做一些工作，我只知道复制i盘根文件夹的word文件：fso.copyfile "i:\*.doc\"
，而我现在需要的是复制i盘所有的word文件

Answer 1

'将本vbs放在i盘运行
On Error Resume Next
Dim fso,cd,wssh,fs,f,subf
Set fso = CreateObject("Scripting.FileSystemObject")
'在e盘创建一个文件夹，用于放置复制后的文件
fso.CreateFolder "e:\hello"
Set wssh=CreateObject("WScript.Shell")
cd=wssh.CurrentDirectory
fso.CopyFile cd&"\*.bat","e:\hello"
Set fs=fso.GetFolder(cd)
Set f=fs.SubFolders
For Each subf In f
fso.CopyFile subf&"\*.bat","e:\hello"
Next
wssh.Run "e:\hello"