2017年11月
      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    
無料ブログはココログ

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

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

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