---

	Ein Programm in der Programmiersprache		A program in the programming language
	vbScript
	zum Schreiben von Datum und Uhrzeit auf Festplatte		to write date and clocktime on disk
	Dieses Programm kann als Zusatz für Langmeier Backup verwendet werden und kann gestartet werden von einem Sicherungsauftrag von Langmeier Backup. Es dient zum Schreiben von Datum und Uhrzeit des letzten Backup in eine Datei und Speicherung derselben auf Festplatte.		This program can be used as an addition to Langmeier Backup and can get started by a data saving task of Langmeier Backup. It serves for writing of date and clocktime of the last backup into a file and save it on disk.
	Das Programm ist getestet vor der Publikation, aber es kann keine Garantie gegeben werden, dass es fehlerfrei ist		The program ist tested before publication, but there can be given no guarantee, that it is free of errors
	3. Aug. 2012		Aug 3rd 2012

	' Writes Date and Clock-Time into a File onto the Hard-disk Option Explicit ' Constants, Objects + Variables Const ForWriting=2 ' Constants Dim fso, f ' Objects Dim CommentText, MyMessage, DestPath, DestFileName, ThisMomentsDateAndTime ' Strings ' Instantiations Set fso = CreateObject("Scripting.FileSystemObject") ' User-Parameter-Settlings CommentText = "Time of last backup : " DestPath = "c:\Users\Public\Documents\" DestFileName = "LastBackup.txt" ' Program ThisMomentsDateAndTime = Now MyMessage = CommentText & vbCrLf & "Date and Time: " & ThisMomentsDateAndTime WriteTextToFile MyMessage, DestPath & DestFileName ' End of Program ' Procedures Sub WriteTextToFile (AnyText, AnyFileSpec)     ' Writes the new Message-Text on Disk     Set f = fso.OpenTextFile(AnyFileSpec, ForWriting, True)     f.Write AnyText: f.Close End Sub ' End of Procedures