strSource="e:\logs\2006*"
strDestination="f:\backups\logs"
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder strSource,strDestination

WScript.Echo "Copied " &objFSO.GetFolder(strDestination).Size &_
" bytes from " & strSource & " to " & strDestination