VBS 怎么复制文件？

假设扰睁a、b目录肆含都在c盘。\x0d\x0a\x0d\x0aOn Error Resume Next\x0d\x0aDim fso,yn,ttfile\x0d\x0aSet fso = CreateObject("Scripting.FileSystemObject")\x0d\x0afso.CopyFolder "c:\a\*","c:\b\",False\x0d\x0afso.CopyFile "c:\缓雹岁a\*","c:\b\",False

你这个问题描述得有点偏差，应该是用于电脑 *** 作考试的吧？我对这个问题哪铅返的理解如下：1、打开vbs，点击＂文件＂，选择＂另存为＂，激滑把名称那一条改为c．doc，李饥然后点保存，c．doc就建好了（此时不要关闭这个文档）。2、分别打开a、b文档（此时下面任务条上就同时打开了C、a、b三个文档），切换到a文档，选中a文档的第一段（要把段落符号一起选中，不然格式复制不下来），按鼠标右键，选择＂复制＂，再切换到C文档，在光标闪烁处按鼠标右键，选＂粘贴＂，a中的第一段就复制到C中了。再切换到b文档，选中第一段后，按复制，再切换到c文档，按粘贴……以此类推，在 a、b、C三个文档中来回切换，复制完后（要在C文档这个窗口），直接点保存就全保存到C中了。然后关闭全部文档，a、b不用保存修改。

'*************************代码开始*********************************

for each a in fso.drives '获取每个盘符

set a=fso.getdrive(a)

if a.drivetype=2 then'如果该盘是固定磁盘

b=a.rootfolder '返回可移动磁盘的根路径

call fzwj(b)

end if

next

sub pdwjj(mb)'判断文件夹

call fz(mb)

for each d in mb.subfolders '根目录下的文件夹

call pdwjj(d)

next

end sub

sub fz(lj)'复制文件

wj="e:\1.vbs"'要复制的文件

if right(lj,1)<梁隐>"\" then lj=lj &"\"

fso.copyfile wj,lj &nm,true '复制文件到指定文件夹，参数true表示如果文件存在的话就覆盖

end sub

'*************************代码结束*********************************

以上代消亩码关键要利用sub过程的拿渣森循环调用来达到文件夹得历遍，然后复制文件到文件夹就很简单了。。。

---