システム時刻と時刻がtxtファイルで一致するときにメッセージボックスを表示しますか？

Question

システム時刻がファイルの時刻と一致すると時間オフセット付きのテキストファイルを作成するスクリプトを作成しましたメッセージボックスにメッセージを表示させたい場合

次のコードを試しましたが、トン作業

LicTimeLoc = "J:\Groups\Design\Student Work\UStationTest\LicT.txt" 

Set fso = CreateObject("Scripting.FileSystemObject") 
set LicTimeCheck = fso.CreateTextFile(LicTimeLoc, True) 
LicTimeCheck.WriteLine DateAdd("s",5,Now()) 
LicTimeCheck.Close 

Set LicTimeCheck = fso.OpenTextFile(LicTimeLoc) 
NextLic = LicTimeCheck.ReadAll 
Do Until Now = NextLic 
Loop 
msgbox "License now available" 

Answer 1

私は私が私のニーズに合わせて、それを編集し、システム時刻が比較された値よりも大きい場合、今ではメッセージ

01を示し here

を望んでいたかの詳細を発見しました