Question

如何使用VBS代码将D盘下所有文件和文件夹复制到E盘？

是所有的文件和文件夹！也就是说全部内容！
可以复制文件但文件夹显示没有权限

Answer 1

Option Explicit
dim i,fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "d:\*","e:\"
fso.CopyFile "d:\*","e:\"

以上是vbs代码，对于类似的文件处理，个人感觉使用批处理更好些。

Answer 2

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "d:\*" , "e:\ ",
objFSO.CopyFolder "d:\*" , "e:\ " , OverWriteFiles
OverwriteExisting