2018年10月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      
無料ブログはココログ

« インターネットからファイルをダウンロードする。 | トップページ | テキストファイルを文字順/数値順にソートするバッチファイル »

2007年4月26日 (木)

システムエラーコードからメッセージテキストを取り出す。

Excelがあれば、Win32APIのFormatMessage()を呼び出して、
システムエラーコードからメッセージテキストを取り出せます。
ExcelのApplication.ExecuteExcel4Macro()メソッドを利用します。

Set Application=CreateObject("Excel.Application")
Text="&H80070000"
Do
  Code=InputBox(Code,"Enter System Error Code",Text)
  If Code="" Then Exit Do
  If IsNumeric(Code) Then
    Code2=Code
    Text=Application.ExecuteExcel4Macro("CALL(""kernel32"",""FormatMessageA"",""5JJJJCJJ"",4096,0," & CLng(Code) & ",0,""" & Space(128) & """,128,0)")
  Else
    Text=Code2
  End If
Loop

« インターネットからファイルをダウンロードする。 | トップページ | テキストファイルを文字順/数値順にソートするバッチファイル »