SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jamaicol en Miércoles 12 de Octubre de 2005, 20:41

Título: Una Facil
Publicado por: Jamaicol en Miércoles 12 de Octubre de 2005, 20:41

Supongo que sera una chorrada pero me he creado una ventana de dialogo para meterla dentro de el autorun de un cd y cuando le doy al boton de aceptar querria que me abriese el contenido del cd en una ventana en plan explorar el cd, pero me estoy volviendo loco para encontrar la orden.
Se que se ha de utilizar el app.path para abrir el path o sea la raiz del cd pero no logro abrir una ventana nueva. A lo mas que he llegado a sido a
Shell (app.Path)
que me da un precioso error de ejecucion la mar de mono.
Seguro que es una chorradita pero no logro averiguarla por mi cuenta, a ver si lo sabeis.

Título: Re: Una Facil
Publicado por: shakka en Miércoles 12 de Octubre de 2005, 21:01

prueba esto; abre el subdirectorio de window$  :)

Código: Text

1. Option Explicit
2.  
3. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
4.   ( _
5.     ByVal hwnd As Long, _
6.     ByVal lpOperation As String, _
7.     ByVal lpFile As String, _
8.     ByVal lpParameters As String, _
9.     ByVal lpDirectory As String, _
10.     ByVal nShowCmd As Long _
11.   ) _
12. As Long
13.  
14. Private Declare Function GetDesktopWindow Lib "user32" () As Long
15.  
16. Private Sub CommandButton1_Click()
17.   Dim lRtn As Long
18.   Dim hDC As Long
19.   
20.   hDC = GetDesktopWindow()
21.   lRtn = ShellExecute(hDC, "Open", "C:\WINDOWS", "", "", 1)
22. End Sub
23.  

tendira que cambiar la path

avisa si no funciona  :(

Título: Re: Una Facil
Publicado por: Jamaicol en Miércoles 12 de Octubre de 2005, 21:19

Gracias, funciona de lujo, te debo unas cervezas