Copiar desde USB a PC con vbscript

[Instalador]

Buenas noches primero saludarles desde Cancún, México.

Y para solicitarles su amable orientación, estoy tratando de copiar desde USB un archivo llamado prueba.docx, este archivo esta dentro de una carpeta llamada Oscar y quiero copiarlo a C:\Archivos de programa\Ejemplo.

Pero me marca error "Archivo no encontrado"

El comando movefile para renombrar Prueba 3.rar por Prueba 3.bak si me la acepta, porque la path es desde Archivos de programa.

Pero cuando uso .\ como path para USB no, podría alguien decirme que estoy haciendo mal, gracias.

Lo intente con este script:

Código (vb) [Seleccionar] Expandir

dim path, objFSO
path=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%PROGRAMFILES%")
set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile(path & ("\Ejemplo\Prueba 3.rar")),  (path & ("\Ejemplo\Prueba 3.bak"))
objFSO.CopyFile(".\Oscar\prueba.docx"), "C:\Program Files\Ejemplo\"


Solucionado:

Opte por eliminar todos los archivos y crearlos de nuevo, modifique el script, quedando de esta forma:

Código (vb) [Seleccionar] Expandir

On Error Resume Next
dim path, variable 'Probado OK
path=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%PROGRAMFILES%") 'Probado OK
Set variable = CreateObject("Scripting.FileSystemObject") 'Probado OK
variable.MoveFile(path & ("\Ejemplo\Prueba 3.rar")),  (path & ("\Ejemplo\Prueba 3.bak")) 'Probado OK
'variable.CopyFile "Test.docx", "C:\Program Files\Ejemplo\", true 'Probado OK
variable.CopyFile "Test.docx",  (path & ("\Ejemplo\")) 'Probado OK

En la linea 6 elimine .\
La linea 7 es lo mismo que la 6, pero en la 7 uso variable de entorno %PROGRAMFILES%

Ojala le sirva a alguien, saludos.

Perdon, cambie los nombres de los archivos, pero se entiende.