Avisar al usuario de la aplicacion que el archivo a abrir con cmmdialog no es reconocido.
JurassicBoY
08 de Julio del 2004
Quisiera saber como avisar al usuario de mi aplicaci贸n de que el archivo que intenta abrir a trav茅s del commondialog es desconocido para el sistema operativo, ya sea por ejemplo porque el sistema no tiene instalado el programa que encargado de abrirlo.
He creado un archivo .pkg irreconocible por windows y la 煤nica reacci贸n es que desaparece el commondialog al seleccionarlo y darle a aceptar. Desearia un MsgBox informando de que no puede abrirlo. -Gracias por su atencion-
El codigo de mi commondialog es el siguiente:
Public Sub AbrirCon(CmmDialogEdicion As Object)
\'Esta funcion muestra el commondialog Abrir Con para abrir el archivo especificado por el usuario.
Dim Res As String
With CmmDialogEdicion
.DialogTitle = "Abrir Documento..."
.CancelError = False
.Filter = "Ficheros Word (*.doc)|*.doc|Ficheros de texto (*.txt)|*.txt|Ficheros Acrobat Reader (*.pdf)|*.PDF|Todos los archivos (*.*)|*.*"
.FilterIndex = 4
.InitDir = "c:\pruebas"
.ShowOpen
End With
Res = ShellExecute(0, "Open", CmmDialogEdicion.FileName, " ", " ", 1) \'Muestra el documento abierto a tama帽o predeterminado por el procesador de textos.
End Sub
He creado un archivo .pkg irreconocible por windows y la 煤nica reacci贸n es que desaparece el commondialog al seleccionarlo y darle a aceptar. Desearia un MsgBox informando de que no puede abrirlo. -Gracias por su atencion-
El codigo de mi commondialog es el siguiente:
Public Sub AbrirCon(CmmDialogEdicion As Object)
\'Esta funcion muestra el commondialog Abrir Con para abrir el archivo especificado por el usuario.
Dim Res As String
With CmmDialogEdicion
.DialogTitle = "Abrir Documento..."
.CancelError = False
.Filter = "Ficheros Word (*.doc)|*.doc|Ficheros de texto (*.txt)|*.txt|Ficheros Acrobat Reader (*.pdf)|*.PDF|Todos los archivos (*.*)|*.*"
.FilterIndex = 4
.InitDir = "c:\pruebas"
.ShowOpen
End With
Res = ShellExecute(0, "Open", CmmDialogEdicion.FileName, " ", " ", 1) \'Muestra el documento abierto a tama帽o predeterminado por el procesador de textos.
End Sub