Fehlermeldungen des CommonDialogs auswerten

Diese Funktion ermittelt den letzten Fehlercode des CommonDialog-Dialogs zum Öffnen einer Datei.
Wenn der Dialog ohne eine Auswahl geschlossen wird ist die Rückgabe "0".

Public Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

Schlug der Aufruf des Dialogs fehl, so wird einer der aufgeführten Fehlercodes zurückgeliefert. Wurde der Dialog erfolgreich beendet und eine Auswahl getroffen so ist der Rückgabewert undefiniert.

Select Case CommDlgExtendedError
Case COMDLG32ERR_DIALOGFAILURE
  strMsg = "Der Dialog kann nicht geöffnet werden."
Case COMDLG32ERR_FINDRESFAILURE
  strMsg = "Eine benötigte Ressource kann nicht gefunden werden."
Case COMDLG32ERR_INITIALIZATION
  strMsg = "Der Dialog konnte nicht initialisiert werden (Nicht genug Speicher)."
Case COMDLG32ERR_LOADRESFAILURE
  strMsg = "Der Dialog konnte eine angegebene Resource nicht laden."
Case COMDLG32ERR_LOADSTRFAILURE
  strMsg = "Es konnte ein angegebener String nicht geladen werden."
Case COMDLG32ERR_LOCKRESFAILURE
  strMsg = "Es konnte eine angegebene Resource nicht sperren werden."
Case COMDLG32ERR_MEMALLOCFAILURE
  strMsg = "Die CommonDialog-Fenster Funktion konnte keinen Speicher alloziieren."
Case COMDLG32ERR_MEMLOCKFAILURE
  strMsg = "Der benötigte Speicher kann nicht gesperrt werden."
Case COMDLG32ERR_NOHINSTANCE
  strMsg = "Es wurde kein gültiger Instanzhandle übergeben."
Case COMDLG32ERR_NOHOOK
  strMsg = "Es wurde keine gültige Hookfunktion angegeben."
Case COMDLG32ERR_REGISTERMSGFAIL
  strMsg = "Die RegisterWindowMessage " & _
  " Funktion lieferte einen Fehler beim Aufruf zurück."
Case COMDLG32ERR_NOTEMPLATE
  strMsg = "Es wurde kein gültiges Template angegeben."
Case COMDLG32ERR_STRUCTSIZE
  strMsg = "Die Strukturgröße ist ungültig."
Case COMDLG32ERR_CANCEL
  strMsg = "Der Dialog wurde mit der Cancel-Taste geschlossen."
Case Else 
  strMsg = "Undefined error ..." & CommDlgExtendedError
End Select