Una duda...

Iniciado por pungados, 6 Octubre 2007, 22:22 PM

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

pungados

Yo nada más tengo 1 año de experiencia de vb6 y todavía no vi lo suficiente como para saber lo que le voy a preguntar:
Yo cree un formulario que tiene como función ejecutar archivos como la ventana "ejecutar" que trae windows. Lo que quería saber es como programo con un boton en este caso "Examinar" para que se abra una ventana, que en la cual pueda buscar el archivo que quiero ejecutar.
desde ya muchas gracias
Salu2

APOKLIPTICO

Usa un common dialog control.
Salu2
AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.

pungados

Si.... es facil decirlo.... pero yo no tengo idea de como programarlo eso por eso pregunto...

papanoel_devacaciones

#3
Perdona pero llevas un año en esto y no sabes lo basico ??
Vete a componentes....seleciona el "Microsoft Cummon Dialog 6" despues le pones en el formulario y tambien pones un boton...pinchas dos veces sobre el boton y pones ese codigo...tambien le añades un textbox

Código (vb) [Seleccionar]

CommonDialog1.InitDir = "c:\" ' directorio por defecto
CommonDialog1.DialogTitle = "Seleccione un archivo" ' titulo de la ventana
CommonDialog1.Filter = "Todos tipo de archivos|*.*" ' tipo de archivos
'Abrimos el Commondialog con ShowOpen
CommonDialog1.ShowOpen

'Si seleccionamos un archivo mostramos la ruta
If CommonDialog1.FileName <> "" Then

   Text1.Text = CommonDialog1.FileName ' guarda la ruta en un textbox
   Shell Text1.Text ' ejecuta al archivo

Else
   'Si no mostramos un texto de advertencia de que no se seleccionó
   MsgBox "No se ha selecionado ningun archivo", vbCritical, "Error"


End If


Espero que lo entiendas...


Saludos

pungados

Gracias :) pasa que en este colegio no llegaron a enseñarme esa parte lo unico que me enseñaron fue manejar los cmd, frm, chk, opt, txt, y otros :p
Estoy en tercer año del secundario :P