作成 2009.12.29
更新 2009.12.29
MsgBoxのサンプルコード

「はい」を選択したら C:\temp\yes.txt が作成され、時刻が追記されます。
「いいえ」を選択したら C:\temp\no.txt が作成され、時刻が追記されます。

Option Explicit
Const TEXT_DIR = "C:\temp\"
Dim FSO
Dim touchFile
Dim ret
Set FSO = CreateObject("Scripting.FileSystemObject")
ret = MsgBox ("当社はあなたを解雇しようとしています。" & vbNewLine & "退職しますか?", _
              vbYesNo + vbQuestion, "解雇予告")
If Not FSO.FolderExists(TEXT_DIR) Then FSO.CreateFolder(TEXT_DIR)
If ret = vbYes Then
  Set touchFile = FSO.OpenTextFile(TEXT_DIR & "yes.txt", 8, True)
  touchFile.WriteLine Now
Else
  Set touchFile = FSO.OpenTextFile(TEXT_DIR & "no.txt", 8, True)
  touchFile.WriteLine Now
End If
touchFile.Close

参考
MsgBox 関数 | CreateFolder メソッド | FolderExists メソッド | OpenTextFile メソッド | WriteLine メソッド

タグ: VBScript

©2004-2017 UPKEN IPv4