Abrir Ventana de Dialogo
Carlos
18 de Octubre del 2004
Hola, estoy realizando una aplicacion VB en la que tengo que mostrar diferentes tipos de ficheros y dependiendo de que extension tengan se abriran con el programa que tengan asociado. Uso el siguiente codigo:
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal plnghwnd As Long, ByVal pstrlpOperation As String, _
ByVal pstrlpFile As String, ByVal pstrlpParameters As String, _
ByVal pstrlpDirectory As String, ByVal plngnShowCmd As Long) As Long
Dim llngResultado As Long
llngResultado = ShellExecute(Me.hwnd, "Open", txtDDocumento.Text, "", "", 1)
Esto me funciona bien, el problema es que cuando hay alguna extension no "registrada" en el sistema, me devuelve codigo de error y lo que me gustaria hacer en este caso es abrir la ventana de dialogo de windows "Abrir con" . Alguien me puede decir como hacerlo? o aunque sea orientarme un poco?
Gracias
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal plnghwnd As Long, ByVal pstrlpOperation As String, _
ByVal pstrlpFile As String, ByVal pstrlpParameters As String, _
ByVal pstrlpDirectory As String, ByVal plngnShowCmd As Long) As Long
Dim llngResultado As Long
llngResultado = ShellExecute(Me.hwnd, "Open", txtDDocumento.Text, "", "", 1)
Esto me funciona bien, el problema es que cuando hay alguna extension no "registrada" en el sistema, me devuelve codigo de error y lo que me gustaria hacer en este caso es abrir la ventana de dialogo de windows "Abrir con" . Alguien me puede decir como hacerlo? o aunque sea orientarme un poco?
Gracias