Ayuda: Introducción de datos vbs

Iniciado por moikano→@, 8 Junio 2010, 01:58 AM

0 Miembros y 1 Visitante están viendo este tema.

moikano→@

Un saludo a la comunidad.

Primero de todo felicidades por esta pagina, me ha ayudado mucho con mis inicios en la programación, y me sigue ayudando.

Soy nuevo en el foro, aún no he aportado nada a ningun tema, mas que nada porque tampoco he visto que pueda ayudar. Así que empiezo pidiendo ayuda.

Bueno, voy al grano.

Estoy aprendiendo vbs con un manual que encontre por aqui (muy bueno por cierto),  y me he topado con un problema, intento inserta un objeto, concretamente una creación de carpeta, he intento que la dirección en donde se crea se pueda modificar con un inputbox.

Aquí esta el ejemplo:

Código (vb) [Seleccionar]
usuarioin= inputbox ("El programa necesita el nombre de tu usuario","Nombre usuario","introduce el nombre de tu usuario")
   
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder "C:/documents and settings/&usuarioin/escritorio/archivos de texto"



-Supongo que se entiende, la variable de &usuarioin rellena el campo de la dirección,
he probado muchas formas, pero no he conseguido que me acepte el cambio, aún así no se si se puede hacer de esta forma.

Agradezco toda la yuda y lectura.




Novlucker

Código (vb) [Seleccionar]
usuarioin= inputbox("El programa necesita el nombre de tu usuario","Nombre usuario","introduce el nombre de tu usuario")

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder "C:\documents and settings\" & usuarioin & "\escritorio\archivos de texto"


El problema es que esta mal concatenado, además de que deberías de usar barras invertidas, por lo que el code quedaría como lo he dejado más arriba.
Por otra parte, tu codigo tiene el problema de que por ejemplo, si cambias a un win en inglés, ya no funciona :-\, así lo haría yo ...

Código (vb) [Seleccionar]
Set objshell = createobject("wscript.shell")
Escritorio = objshell.specialfolders("Desktop")

Set objfso = createobject("scripting.filesystemobject")
objfso.createfolder Escritorio & "\archivos de texto"


Saludos

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

moikano→@

Ok gracias

Para estar seguro de que no me equivoco, el primer objeto es para ubicarse en el escritorio y el segundo es para crear la carpeta¿?

Novlucker

Si, el primero es para acceder a la ruta del escritorio, y el segundo es para crear la carpeta, simplemente son objetos para cosas distintas.

En el tutorial que se encuentra en este subforo tienes ambos objetos.

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

moikano→@

Si lo tengo bajado, y antes de preguntar me lo ley, pero no pude hacer esta relación de objetos, ahora que lo se se me amplian las opciones, gracias de nuevo, por la respuesta y por el tutorial   =)