Avisar que 1 archivo no se puede abrir cn CmDialog
Publicado por JurassicBoY (1 intervención) el 09/07/2004 10:45:09
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 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
Valora esta pregunta


0