Visual Basic

エラーログファイル出力 (subOutputLog)

 

‘/*************************************************/
‘/* [ 名 称 ] subOutputLog   : エラーログファイル出力                        
‘/* [ 引 数 ] strMsg         : 出力文字列      （エラー場所を示す）          
‘/* [ 戻 値 ] なし                                                           
‘/* [ 概 要 ] エラーメッセージをログファイルに出力する。                     
‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名                      
‘/*************************************************/
Public Sub subOutputLog(ByVal strMsg As String)
‘変数宣言———————————————————————-
    Dim intFileNo       As Integer  ‘ファイル番号変数
‘——————————————————————————

    ‘空いているファイル番号を取得する
    intFileNo = FreeFile()
    ‘ファイルをオープンする
    Open “C:¥LOGLOG.TXT” For Append As #intFileNo
    ‘strMsgから改行コードを削除する
    strMsg = Replace$(strMsg, vbCrLf, vbNullString)
    strMsg = Replace$(strMsg, vbLf, vbNullString)
    strMsg = Replace$(strMsg, vbCr, vbNullString)
    ‘strMsgの内容をファイルを出力する
    Print #intFileNo, Date & ” ” & Time & ” ” & strMsg
    ‘ファイルを閉じる
    Close #intFileNo

End Sub

 





Visual Basic TIPS集

初期登録日: 2003年11月09日

最終更新日: 2003年11月10日

< Home ヘ戻る >

キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく
  2. [ CTRL ] + [ – ]  :  文字を小さく

Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size
  2. [ CTRL ] + [ – ]  :  Down the font size