This will create the destination directory for you on E:\ and also create all subdirectories and copy their contents.

oShell = CreateObject("Shell.Application")
oFoldr = oShell.NameSpace("E:\")
oFoldr.CopyHere("D:\ACCOUNT")
RELEASE oShell, oFoldr