• Domingo 22 de Diciembre de 2024, 19:05

Autor Tema:  Una Facil  (Leído 1372 veces)

Jamaicol

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
Una Facil
« en: Miércoles 12 de Octubre de 2005, 20:41 »
0
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.

shakka

  • Miembro HIPER activo
  • ****
  • Mensajes: 679
  • Nacionalidad: cr
    • Ver Perfil
    • http://mbrenes.com
Re: Una Facil
« Respuesta #1 en: Miércoles 12 de Octubre de 2005, 21:01 »
0
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  :(

Jamaicol

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
Re: Una Facil
« Respuesta #2 en: Miércoles 12 de Octubre de 2005, 21:19 »
0
Gracias, funciona de lujo, te debo unas cervezas