システムエラーコードからメッセージテキストを取り出す。
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
« インターネットからファイルをダウンロードする。 | トップページ | テキストファイルを文字順/数値順にソートするバッチファイル »