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:

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:

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.

  Buenas tardes:

Estoy tratando de usar las variables de entorno de Windows en un vbs script, mediante Environment.

Para crear, copiar, mover, eliminar, etc, archivos y carpetas.

Ya use la opción buscar y no encontré algún manual de uso de Environment.

Podría alguien ayudarme a aprender el uso y aplicación de Environment?

Gracias.

Buenos dias:

Estoy tratando de agregar un registro a windows para "hacer funcinal" un programa, sin que me pida confirmacion.

Mediante un bat seria de la siguiente forma:

REGEDIT /S "regme.reg"

Como puedo hacerlo mediante vbs?

Intente de esta forma pero no funciona:

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "regme.reg"

Gracias por su orientacion.

---

[MOD]: Usa las etiquetas para insertar código.

Buenas tardes, tomando las ideas de varios foreros, arme un downloader que se conecta al hosting, crea carpeta y aparecen las carpetas y archivos a descargar pero....
vacios.
Ya cambie de hosting y lo mismo pasa.
Alguien ha tenido el mismo problema? Gracias.