Archivierung

Zielsetzung

Eine oder mehrere Dateien sollen fortlaufend archiviert werden.

Realisierung

Die Datei(en) werden per Drag&Drop auf ein Skript gezogen. Dieses versieht sie mit einem Timestamp und verschiebt sie in ein Unterverzeichnis:

set args=WScript.Arguments
if args.Count=0 then msgbox "Welche Datei?":wscript.quit

' "Archivierung" v1.0 (c) 2009 F.Perder@chfp.de

Set fso = CreateObject("Scripting.FileSystemObject")
lok=left(WScript.ScriptFullName,len(WScript.ScriptFullName)-len(WScript.ScriptName))
hinweis="Datei"
if args.Count>1 then hinweis="Dateien"
hinweis=hinweis+" archiviert:"+vbnewline
timestamp=right(year(date),2)&"-"&digi2(month(date))&"-"&digi2(day(date))&"-"&_
digi2(hour(time))&"-"&digi2(minute(time))&"-"&digi2(second(time))

for i=0 to args.Count-1
if fso.FolderExists(args(i)) then
hinweis=hinweis+vbNewLine+fso.getFolder(args(i)).name+" - KANN KEINE ORDNER ARCHIVIEREN!"
else
set datei=fso.getFile(args(i))
name=datei.name
datei.move(lok&"Archiv\"&timestamp&" "&name)
hinweis=hinweis+vbNewLine+name
end if
next

msgbox hinweis,,"Archiv"

function digi2(zahl)
r=zahl
if cInt(r)<10 then r="0"&r
digi2=r
end function