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