VBScript to copy files from a share to a local drive

I'm trying to create a script to do the above, can someone give me some guidance on the best way to do it pls?

The code I have so far is below but doesn't work as I would expect:

set fso = CreateObject("Scripting.FileSystemObject")
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
moveToDrive = "D:\"
set failures = fso.CreateTextFile(moveToDrive & "failures.txt")
Set objFolder = fso.GetFolder(sCurPath)


ShowSubFolders objFolder, fso

WScript.Echo "The operation has successfully completed."

Sub ShowSubFolders(objFolder, fso)
    On Error Resume Next
	fso.CopyFolder objFolder, moveToDrive
    Set colFiles = objFolder.Files
    For Each objFile In colFiles
			objFilePath = objFile.Path
			objFileName = objFile.Name
			strLen = len(objFilePath)
			moveToLocation = right(objFilePath, (strLen - 3))
			wscript.echo moveToDrive & moveToLocation
			fso.CopyFile objFile, "D:\Documents and Settings\t104ahe\Desktop\Copy script test\" & objFileName
			fso.CopyFile objFile, moveToDrive & moveToLocation
			If Err.number <> 0 Then 
				failures.WriteLine "Error copying " & objFile.Path
			End if
			Err.Clear
			On Error GoTo 0
    Next
  Set colFolders = objFolder.SubFolders
  For Each objSubFolder In colFolders
    ShowSubFolders objSubFolder, fso
  Next
  If Err.number <> 0 Then 
	failures.WriteLine "Error copying " & objFile.Path
  End if
  Err.Clear
  On Error GoTo 0
End Sub

Select all Open in new window