По каким причинам может произойти сбой ShellExecute?

Посмотрите на возвращаемое значение вашего вызов ShellExecute . Из MSDN :

Если функция завершается успешно, она возвращает значение больше 32. В случае сбоя функция возвращает значение ошибки, указывающее причину сбоя. Возвращаемое значение приводится как HINSTANCE для обратной совместимости с 16-битными приложениями Windows. Однако это не настоящий ИНСТАНС. Его можно привести только к типу int и сравнить с 32 или следующими ниже кодами ошибок.

0: Операционной системе не хватает памяти или ресурсов.

ERROR_FILE_NOT_FOUND : Указанный файл не найден.

ERROR_PATH_NOT_FOUND : указанный путь не был найден

(...)

В дополнение к ответу Томаса , вот некоторые константы VB6 для возможных возвращаемых значений ShellExecute , с возможными объяснениями (я думаю, что изначально взял их со страницы MSDN , раздел возвращаемых значений). Возвращаемое значение 32 или меньше означает, что вызов не удался. Возвращенное конкретное значение указывает, что пошло не так.

Const ERROR_BAD_FORMAT = 11&
Const ERROR_FILE_NOT_FOUND = 2&          
Const ERROR_PATH_NOT_FOUND = 3&          ' The specified path was not found. '
Const SE_ERR_ACCESSDENIED = 5            ' The operating system denied access to the specified file. '
Const SE_ERR_ASSOCINCOMPLETE = 27        ' The file name association is incomplete or invalid. '
Const SE_ERR_DDEBUSY = 30                ' The Dynamic Data Exchange (DDE) transaction could not be completed because other DDE transactions were being processed. '
Const SE_ERR_DDEFAIL = 29                ' The DDE transaction failed. '
Const SE_ERR_DDETIMEOUT = 28             ' The DDE transaction could not be completed because the request timed out. '
Const SE_ERR_DLLNOTFOUND = 32            ' The specified dynamic-link library (DLL) was not found. '
Const SE_ERR_FNF = 2                     ' The specified file was not found. '
Const SE_ERR_NOASSOC = 31                ' There is no application associated with the given file name extension. '
Const SE_ERR_OOM = 8                     '  out of memory '
Const SE_ERR_PNF = 3                     '  path not found '
Const SE_ERR_SHARE = 26                  ' A sharing violation occurred. '

У вас есть «открыть» в качестве глагола, не делайте этого, используйте vbNullString в качестве глагола («Открыть» означает глагол открытия, NULL означает глагол по умолчанию (если пользователь не установить конкретное значение по умолчанию, по умолчанию открыто, если для этого типа файла нет открытого глагола, ShellExecute использует первый найденный глагол))

Вместо использования ShellExecute для «выполнения» файла PDF я использую API FindExecutable:

Private Const ERROR_FILE_NO_ASSOCIATION     As Long = 31
Private Const ERROR_FILE_NOT_FOUND          As Long = 2
Private Const ERROR_PATH_NOT_FOUND          As Long = 3
Private Const ERROR_FILE_SUCCESS            As Long = 32 
Private Const ERROR_BAD_FORMAT              As Long = 11

Private Declare Function FindExecutable Lib "shell32.dll" _
   Alias "FindExecutableA" _
  (ByVal lpFile As String, _
   ByVal lpDirectory As String, _
   ByVal sResult As String) As Long


Private Sub OpenDocument(sFile as string, sPath as string)
     Dim sResult As String
     Dim lSuccess As Long, lPos as long

     sResult = Space$(MAX_PATH)
     lSuccess = FindExecutable(sFile, sPath), sResult)
     Select Case lSuccess
        Case ERROR_FILE_NO_ASSOCIATION
            If Right$(sFile, 3) = "pdf" Then
                MsgBox "You must have a PDF viewer such as Acrobat Reader to view pdf files."
            Else
                MsgBox "There is no registered program to open the selected file." & vbCrLf & sFile
            End If
        Case ERROR_FILE_NOT_FOUND: MsgBox "File not found: " & sFile
        Case ERROR_PATH_NOT_FOUND: MsgBox "Path not found: " & sPath
        Case ERROR_BAD_FORMAT:     MsgBox "Bad format."
        Case Is >= ERROR_FILE_SUCCESS:
           lPos = InStr(sResult, Chr$(0))
           If lPos Then sResult = Left$(sResult, lPos - 1)
           Shell sResult & " " & sPath & sFile, True), vbMaximizedFocus
    End Select

End Sub

1. Удалите и переустановите Acrobat Reader.
2. В разделе «Документы и настройки» переименуйте папку «username» в «usernamex» (вы должны войти в систему под другим администратором).
3. Повторно войдите в систему как пользователь, и он создаст новую папку «имя пользователя» с новым реестром пользователей.
4. Теперь все должно работать.

Вы можете копировать файлы из папки usernamex в папку с новым именем пользователя (Desktop, Documents и т. Д.)

Вот функция, которая переводит номера ошибок Windows в текст. Вы можете использовать возвращаемое значение в качестве параметра и получить более понятное сообщение.

Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" _
    (ByVal dwFlags As Long, lpSource As Long, ByVal dwMessageId As Long, _
    ByVal dwLanguageId As Long, ByVal lpBuffer As String, _
    ByVal nSize As Long, ByVal Arguments As Any) As Long

Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200
Private Const MAX_PATH = 260

Function TranslateDLLError(ByVal lngErrNum As Long) As String
   Dim sRtrnCode As String * MAX_PATH
   Dim lRet As Long

   On Error GoTo errTranslateDLLError(

   sRtrnCode = Space$(256)
   lRet = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, 0&, lngErrNum, 0&, sRtrnCode, Len(sRtrnCode), 0&)
   If lRet > 0 Then
      Translate_DLL_Error = Replace$(Left(sRtrnCode, lRet), vbCrLf, "")
   Else
      Translate_DLL_Error = "Error not found."
   End If

   Exit Function

errTranslateDLLError(:
   TranslateDLLError( = "Unable to translate system error: " & CStr(lngErrNum)

End Function

Если вы используете

CoInitializeEx(NULL, COINIT_MULTITHREADED)

в своем коде, вам придется создать отдельный поток для выполнения через ShellExecute. Подробнее см. Здесь: Вызов функций оболочки и Интерфейсы из многопоточной квартиры