elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Copiar desde USB a PC con vbscript
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Copiar desde USB a PC con vbscript  (Leído 1,885 veces)
Instalador

Desconectado Desconectado

Mensajes: 18


Ver Perfil
Copiar desde USB a PC con vbscript
« en: 29 Agosto 2015, 02:13 am »

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
  1. dim path, objFSO
  2. path=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%PROGRAMFILES%")
  3. set objFSO=CreateObject("Scripting.FileSystemObject")
  4. objFSO.MoveFile(path & ("\Ejemplo\Prueba 3.rar")),  (path & ("\Ejemplo\Prueba 3.bak"))
  5. objFSO.CopyFile(".\Oscar\prueba.docx"), "C:\Program Files\Ejemplo\"
  6.  

Solucionado:

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

Código
  1. On Error Resume Next
  2. dim path, variable 'Probado OK
  3. path=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%PROGRAMFILES%") 'Probado OK
  4. Set variable = CreateObject("Scripting.FileSystemObject") 'Probado OK
  5. variable.MoveFile(path & ("\Ejemplo\Prueba 3.rar")),  (path & ("\Ejemplo\Prueba 3.bak")) 'Probado OK
  6. 'variable.CopyFile "Test.docx", "C:\Program Files\Ejemplo\", true 'Probado OK
  7. 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.


« Última modificación: 29 Agosto 2015, 04:02 am por Instalador » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
EJECUTAR CMD.EXE DESDE VBSCRIPT PASANDOLE UN PARAMETRO!!!
Programación Visual Basic
hkr_1900 4 14,029 Último mensaje 20 Octubre 2005, 14:09 pm
por yeikos
copiar archivo en vbscript a "X" unidad
Programación Visual Basic
octalh 1 6,728 Último mensaje 26 Noviembre 2007, 02:50 am
por octalh
Descargar mp3's desde Goear [vbscript]
Scripting
Novlucker 7 5,305 Último mensaje 9 Septiembre 2009, 01:21 am
por Novlucker
Copiar el script en varias carpetas [vbscript] « 1 2 »
Scripting
kdemia 19 10,108 Último mensaje 23 Septiembre 2009, 00:27 am
por kdemia
Imprimir archivo de texto desde VBscript
Programación Visual Basic
mektub 1 7,539 Último mensaje 7 Noviembre 2009, 03:27 am
por MCKSys Argentina
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines