Ejemplos usando el Api de windows para Visual basic

115 - Api ShellExecute - Retorno de error

Volver al Listado Api - Anterior - Siguiente

Ejemplo que muestra , al llamar a un archivo o comando con ShellExecute, y en caso de error poder determinar cual fue la causa, como por ejemplo si el archivo no tiene un programa asociado para abrirse, retorna al valor con la constante SE_ERR_NOASSOC.

Otro error posible puede ser un aceso denegado al intentar abrir el archivo, " File Not Found ", no se puede acceder al archivo por que está dañado por ejemplo, y algunos otros.

En el ejemplo se intenta abrir el archivo User32.dll, en mi caso, al no tener asociado dicho archivo a ningún programa, retorna el valor SE_ERR_NOASSOC.

Código fuente en un formulario

'Constantes de retorno de error para ShellExecute Private Const ERROR_FILE_NOT_FOUND = 2& Private Const ERROR_PATH_NOT_FOUND = 3& Private Const ERROR_BAD_FORMAT = 11& Private Const SE_ERR_ACCESSDENIED = 5 Private Const SE_ERR_ASSOCINCOMPLETE = 27 Private Const SE_ERR_DDEBUSY = 30 Private Const SE_ERR_DDEFAIL = 29 Private Const SE_ERR_DDETIMEOUT = 28 Private Const SE_ERR_DLLNOTFOUND = 32 Private Const SE_ERR_FNF = 2 Private Const SE_ERR_NOASSOC = 31 Private Const SE_ERR_OOM = 8 Private Const SE_ERR_PNF = 3 'Declaración de ShellExecute Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal _ lpFile As String, ByVal lpParameters As String, ByVal _ lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL = 1 Private Sub Abrir_Archivo(ElArchivo As String) 'Abre el archivo Select Case ShellExecute(hwnd, "open", ElArchivo, vbNullString, _ vbNullString, SW_SHOWNORMAL) 'Retorno de ShellExecute Case 0 MsgBox "Fuera de memoria o de recursos " Case ERROR_BAD_FORMAT MsgBox "Fromato inválido de archivo" Case SE_ERR_ACCESSDENIED MsgBox " Acceso denegado al Intentar abrir el archivo" Case SE_ERR_ASSOCINCOMPLETE MsgBox "Extensión incompleta o inválida del nombre del archivo" Case SE_ERR_DDEBUSY MsgBox " DDE ocupado " Case SE_ERR_DDEFAIL MsgBox " Fall en la Transacción DDE" Case SE_ERR_DDETIMEOUT MsgBox "Petición DDE fuera de tiempo" Case SE_ERR_DLLNOTFOUND MsgBox "DLL not Found" Case ERROR_FILE_NOT_FOUND, SE_ERR_FNF MsgBox "File not found" Case SE_ERR_NOASSOC MsgBox " El archivo no está asociado a ninguna aplicación" Case SE_ERR_OOM MsgBox " Fuera de memoria" Case ERROR_PATH_NOT_FOUND, SE_ERR_PNF MsgBox " Path not found " Case SE_ERR_SHARE MsgBox "Sharing violation" End Select End Sub Private Sub Form_Load() 'Path del archivo a abrir con ShellExecute Call Abrir_Archivo("c:\windows\system32\user32.dll") End Sub

Enlaces relacionados con ShellExecute

Buscar en Recursos vb