求解copyfolder的问题

Const OverWriteFiles = True
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "D:\", "e:\", OverWriteFiles
上面代码不对，我想复制整个分区的内容，文件和文件夹，该这么做？求教各位大神