копирование данных с помощью VBS

BackupAll Array("\\server\accounting\", "\\server\builder\")

Sub BackupAll(MyArray)
	mDate=cstr(DatePart("yyyy", Now)) + "-" + Right("00" & cstr(DatePart("m", Now)), 2) + "-" + Right("00" & cstr(DatePart("d", Now)), 2)
	mTime=""
	mPath="d:\backups_1c\"
	mType="zip"

	response=MsgBox("Создать бэкап всех баз данных?", 3)
	If response=2 Then exit sub
	If MsgBox("Добавить текущее время к имени файла?", 4 + 256) = 6 Then mTime="_" + Right("00" & cstr(DatePart("h", Now)), 2) + "-" +Right("00" & cstr(DatePart("n", Now)), 2)

	Set folders = CreateObject("Scripting.Dictionary")
	For each folder in MyArray
		folders.Add folder, false
	Next

	If response=6 Then
		For each folder in folders
			folders(folder)=True
		Next
	elseIf response=7 Then
		For each folder in folders
			response1 = MsgBox("Создать бэкап ''" + folder + "'' ?", 3)
			If response1=2 Then exit sub
			If response1=6 Then folders(folder)=True
		Next
	end If

	For each folder in folders
		If folders(folder)=True Then CreateArchive mPath, replace(folder, "\", "_"), mDate + mTime,  mType, folder
	Next
End Sub

Sub CreateArchive(mPath, mName, mDate, mType, pathData)
	pathArhive=mPath & mName & mDate & "." & mType
	
	'Создание архива
	Set WshShell = CreateObject("WScript.Shell")
	Set oExec = WshShell.Exec("C:\Program Files\WinRAR_old\WinRAR.exe u -af" + mType + " -ep1 -r -y -dh " + pathArhive + " " + pathData)
	Do While oExec.Status = 0
     WScript.Sleep 100
	Loop
	
	'Удаление старых архивов для текущей папки
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(".")
	Set colFiles = objFolder.Files
	For Each objFile in colFiles
		If DateDIff("D", objFile.DateLastModIfied, Now) > 30 Then ' проверка файлов на старость
			If len(objFile.Name)>len(mName) Then
				If left(objFile.Name, len(mName))=mName Then 
					Log (objFile.Name)
					objFile.Attributes = 0
					objFile.Delete
				End If
			End If
		End If
	Next
End Sub

'функция для создания log-файла. он создается рядом со скриптом, имя - дата запуска скрипта.
Function Log(strLineToLog)
	Const ForReading = 1, ForWriting = 2
	Dim fso, f, FileLog

	Set fso = CreateObject("Scripting.FileSystemObject")
	FileLog = Left(WScript.ScriptName,(Len(WScript.ScriptName)-4)) & "_" & DatePart("yyyy",Date) & "_" & DatePart("m",Date) & "_" & DatePart("d",Date) & "." & "log"
	Set f = fso.OpenTextFile(FileLog, 8, True)
	f.Write strLineToLog & vbCrLf
	f.Close
End Function