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

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

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