Suche Ratgeber

[Erich Foltyn]

jetzt habe ich sogar, natürlich auch in mehreren Arbeitsstunden einen VB-Script-File geschaffen, der von Langmeier-Backup erfolgreich ausgeführt wird:

Const OverWrite = TRUE
Dim MyDate, MyTime, MyMessage, myPath, myFile, fs, a
MyDate = FormatDateTime(Now, vbShortDate)
MyTime = FormatDateTime(Now, vbShortTime)
MyMessage = "Zeitpunkt der letzten Archivierung : "& vbCrLf & "Datum " & MyDate & " Uhrzeit " & MyTime
myPath = "c:\Dokumente und Einstellungen\All Users\Dokumente\etc\"
MyFile = MyPath & "Lastupdate.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(MyFile, True)
a.WriteLine(MyMessage)
a.close
DestPath = "D:\Archiv1\"
Set objFS = CreateObject("Scripting.FileSystemObject")
a = objFS.CopyFile (MyFile, DestPath, OverWrite)
DestPath = "D:\Archiv2\"
a = objFS.CopyFile (MyFile, DestPath, OverWrite)

es wird also eine txt-Datei erzeugt mit einer Meldung und Datum und Uhrzeit drinnen und die wird dann in 2 weitere Verzeichnisse kopiert.