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