作成 2009.12.29
更新 2009.12.29
時間がきたら自動的に閉じるポップアップのサンプル

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

Option Explicit
Const TEXT_DIR = "C:\temp\"
Dim FSO, WshShell
Dim touchFile
Dim ret
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ret = WshShell.Popup ("当社はあなたを解雇しようとしています。" & vbNewLine & _
		"転職しますか?10秒以内に回答がない場合、解雇されます。", _
             10, "解雇予告", 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)
ElseIf ret = vbNo Then
  Set touchFile = FSO.OpenTextFile(TEXT_DIR & "no.txt", 8, True)
Else
  Set touchFile = FSO.OpenTextFile(TEXT_DIR & "timeout.txt", 8, True)
End If
touchFile.WriteLine Now
touchFile.Close

参考
CreateFolder メソッド | FolderExists メソッド | OpenTextFile メソッド | Popup メソッド | WriteLine メソッド

タグ: WSH VBScript

©2004-2017 UPKEN IPv4