http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** v9.3 *** www.dieseyer.de *******************************
' File: TermineMelden.vbs
' Autor: W.Schmelz
' http://dieseyer.de
'
'************************************************************


Set Fso=WScript.CreateObject("Scripting.FileSystemObject")
Set Wss=WScript.CreateObject("WScript.Shell")
AktVerz=Fso.GetParentFolderName(WScript.ScriptFullName)
Titel=" Die Stopp - Uhr ! ! !"
UV=VbCR&VbCR 'MsgBox u.a. vereinfachen



' Die "Stoppen"-Datei in den Start-Ordner setzen :
'*************************************************
Datei1=AktVerz




' Prüfen, ob " Stoppen.vbs " bereits schon läuft :
'*************************************************
If Fso.FileExists (Datei1&"\Stoppen.vbs") then _
MsgBox UV&UV&VbTab&"Die StoppUhr läuft bereits ! "&_
" "&UV&UV,VbCritical,Titel:WScript.Quit


' Die Stopp - Uhr wird jetzt gestartet :
'***************************************
Ask=MsgBox (UV&UV&VbTab&_
"Mit dem Befehl "" OK "" startet die Messung ! "&UV&_
VbCR&VbTab&" Mit "" Stoppen.vbs "" die Uhr anhalten !"&_
UV&UV,VbOkCancel,Titel)

If Ask="2" then WScript.Quit


' Jetzt die Festlegung des Start - Zeitpunktes der Uhr :
'*******************************************************
Beginn=Timer



' " Stoppen.vbs " - Datei schreiben und in den Start-Ordner setzen :
'*******************************************************************
Set Ordner=Fso.GetFolder(Datei1)
Set Data=Ordner.CreateTextFile("Stoppen.vbs")

Data.WriteBlankLines(2)
Data.WriteLine("Start="&""""&Beginn&"""")
Data.WriteLine("UV=VbCR&VbCR")
Data.WriteLine("Set Fso=WScript.CreateObject(""Scripting.FileSystemObject"")")
Data.WriteLine("Datei="&""""&Datei1&"""&""\Stoppen.vbs"" ")
Data.WriteBlankLines(2)
Data.WriteLine("Ask=MsgBox(UV&VbCR&"" Wollen Sie nur eine Zwischenzeit""&_ ")
Data.WriteLine(" UV&"" oder die endgültige Zeit messen ?""&UV&_ ")
Data.WriteLine(" "" Bei """" OK """" kommt endgültige Zeit,""&UV&_ ")
Data.WriteLine(" "" bei """" Nein """" die Zwischenzeit ! ""&_ ")
Data.WriteLine(" "" ""&UV&UV,VbInformation+VbYesNoCancel, _ ")
Data.WriteLine(" "" Die gestoppte Laufzeit ! ! !"") ")
Data.WriteLine(" ")
Data.WriteLine("If Ask=""6"" then ")
Data.WriteLine(" MsgBox UV&UV&VbCR&""Die gestoppte Zeit beträgt ""&_ ")
Data.WriteLine(" Round(Timer-Start,2)&"" sec ""&_ ")
Data.WriteLine(" VbCR&UV&UV,VbInformation, _ ")
Data.WriteLine(" "" Die gestoppte Laufzeit ! ! !"" ")
Data.WriteLine("End If ")
Data.WriteLine(" ")
Data.WriteLine("If Ask=""7"" then ")
Data.WriteLine(" MsgBox UV&UV&VbCR&""Die gestoppte Zwischenzeit beträgt""&_ ")
Data.WriteLine(" "" ""&Round(Timer-Start,2)&"" sec ""&_ ")
Data.WriteLine(" VbCR&UV&UV,VbInformation, _ ")
Data.WriteLine(" "" Die Zwischen - Laufzeit ! ! !"" ")
Data.WriteLine(" WScript.Quit ")
Data.WriteLine("End If ")
Data.WriteLine(" ")
Data.WriteLine(" ")
Data.WriteLine("If Ask=""6"" then Fso.DeleteFile (Datei) ")
Data.WriteLine(" WScript.Quit ")

Data.Close

Datei1=Fso.GetParentFolderName(WScript.ScriptFullName)
Datei2=Datei1&"\Stoppen.vbs"
Wss.Run """"&Datei2&""""


WScript.Quit



http://dieseyer.de • all rights reserved • © 2011 v11.4