xcopy and vbscript

With the help of some great folks here, I am running a vb script to
backup a user's files to a usb drive. It is working beautifully with
one minor problem. It takes about 5-6 minutes to backup approximately
200-300mb. Will xcopy reduce the time it takes to copy the data over
to the usb drive? A copy of the script is below for reference.
Thanks in advance.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strFolderName)

Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\documents and settings\erobbins\my documents
\*.*" , strFolderName , OverwriteExisting

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\documents and settings\erobbins\my documents
\*.*" , strFolderName , OverwriteExisting

Set objFSO = CreateObject("Wscript.Shell")
strMessage = "Backup Complete. Click OK to Finish."
ObjShell.Popup strMessage, 5, "Backup Complete", OK_Button

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

shrp

.

Loading