vbscript - errorhandler を使用した VBScript アプリのエラー ログ

Question

発生したエラーに関するすべての情報を msgbox とログ テキスト ファイルに出力する必要があります。私の現在のコードは、エラーが発生したことをユーザーに通知するメッセージのみを出力します。実際には、msgbox に短いエラー情報を表示し、ログ ファイルに詳細な説明を表示する必要があります。

私はこのスクリプトに TestPartner を使用しており、その言語として VBScript を使用しているため、概念は VB6 のものと似ていることを付け加えたいと思います。

これは現在私のコードです:

Private Sub CmdPOstart_Click()

errorcount = 0

On Error GoTo ErrorHandler

'Do stuff...

ErrorHandler:
    errorcount = errorcount + 1 'Add 1 to the error count
    'Output the error information to a msgbox
    MsgBox ("An Error Occurred! " & errorcount & " Errors ")
Exit Sub

End Sub

前もって感謝します。