VBSメモ - seigo777 @ ウィキ

test.vbs

Option Explicit
On Error Resume Next

Dim objFSO      ' FileSystemObject
Dim objFile     ' ファイル書き込み用

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    Set objFile = objFSO.OpenTextFile("test.txt", 2, True)
    If Err.Number = 0 Then
        objFile.Write("梶田のテスト")
        objFile.Close
    Else
        WScript.Echo "ファイルオープンエラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFile = Nothing
Set objFSO = Nothing

test2.vbs

Option Explicit

'定数の宣言
Const ForReading = 1 '読み込み
Const ForWriting = 2 '書きこみ（上書きモード）
Const ForAppending = 8 '書きこみ（追記モード）

Dim objFileSys
Dim objOutFile
Dim objNetWork
Dim strAccountInfo

'①ユーザIDの取得
Set objNetWork = WScript.CreateObject("WScript.Network")
strAccountInfo = objNetWork.UserName

'②ファイルシステムオブジェクトの作成
Set objFileSys = WScript.CreateObject("Scripting.FileSystemObject")

'③テキストファイルを書き込み（ただし追記モード）でオープン
Set objOutFile = objFileSys.OpenTextFile("X:\999_個人ファイル\xxx_梶田資料\test.txt",ForAppending)

'④テキストファイルへの書き込み（1行書き込み）
objOutFile.WriteLine "Date[" & date & "] Time[" & time & _
                     "] User[" & strAccountInfo & "] - Login"

'⑤テキストファイルのクローズ
objOutFile.Close

'⑦オブジェクト破棄
Set objFileSys = Nothing
Set objOutFile = Nothing
Set objNetWork = Nothing