VB-Script zum zippen und anschließendem löschen der Ursprungsdatei mit Windowsboardmitteln in Win7 bzw Server 2008R2

myFolder = "C:\Neuer Ordner\"  
myZipFile = myFolder & "\Zips" & Date & ".zip"  
Ext = "bak" 'Kleinbuchstaben verwenden  
Alter = 7

CounterFile = myFolder & "\ZIPEN am " & Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2) & ".txt"  

Set objApp = CreateObject("Shell.Application")  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objCounterFile = objFSO.CreateTextFile(counterFile)

objFSO.CreateTextFile(myZIPFile).Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0)) 'ZIP-Datei erstellen  

AltDatum = DateAdd("d", -Alter, Date)  

For Each objFile In objFSO.GetFolder(myFolder).Files
    strFileName = objFile.Name
   	If LCase(objFSO.GetExtensionName(strFileName)) = Ext Then
        Datum = objFile.DateLastModified
        If Datum < AltDatum Then 'alte Datei  
            objApp.NameSpace(myZipFile).CopyHere objFile.Path
            WScript.Echo "Alt: " & Datum & " " & strFileName  
            objCounterFile.WriteLine "Gezippt: " & Datum & " " & strFileName  
            intAlteDatei = intAlteDatei + 1
            'warten, bis Datei in ZIP geschrieben wurde  
            Do Until objApp.Namespace(myZIPFile).Items.Count = intAlteDatei 
                WScript.Sleep 100
            Loop
            objFile.Delete 'Datei löschen  
        Else
            WScript.Echo "Neu: " & Datum & " " & strFileName  
        End If
    End If
Next
objCounterFile.WriteLine "Dateien gezipt: " & intAlteDatei  

'objFile.Delete 'Datei löschen

myZipFile = myFolder & "Zips" & Date & ".zip"

#   **************************************************************
#    einmal auf der powershell ausgeführt werden
#     "Set-ExecutionPolicy Unrestricted" 
#   **************************************************************
#    zip funktionen von  
#    http:{{comment_single_line_double_slash:0}}
#   
#   **************************************************************
#   * Erstellt M.N. - POWERSHELL / Entwicklung   25.05.2012      *
#   **************************************************************
# variablen
$quelle = "C:\Dokumente und Einstellungen\m.neumann\Eigene Dateien\Eigene Bilder"  
$endung = "*.jpg"  
$TAGEABZUG=7
$ZIPDATUM=$((Get-Date) + (New-TimeSpan -days -$TAGEABZUG))
$ZIPFILE = "c:\$(Get-Date $ZIPDATUM -uformat "%Y-%m-%d").zip"  
$file = @(Get-ChildItem $quelle -filter $endung -recurse | Where-Object {$_.lastwritetime -le (Get-Date $ZIPDATUM)})
$filezip = $file #| select -first 1
$filename = $filezip | Select-Object Name
#echo $filename
$filenamefull = $filezip.fullName
Get-Date $ZIPDATUM -uformat "%Y-%m-%d"  
new-zip $ZIPFILE
foreach ($i in $file) {
    $filename = $i | Select-Object Name
    echo $i.fullName
    dir $i.fullName | Add-Zip $ZIPFILE
    }



function New-Zip
{
	param([string]$zipfilename)
	set-content $zipfilename ("PK" + [char]5 + [char]6 + ("$([char]0)" * 18))  
	(dir $zipfilename).IsReadOnly = $false
}
## usage: new-zip c:\demo\myzip.zip

function Add-Zip
{
	param([string]$zipfilename)

	if(-not (test-path($zipfilename)))
	{
		set-content $zipfilename ("PK" + [char]5 + [char]6 + ("$([char]0)" * 18))  
		(dir $zipfilename).IsReadOnly = $false	
	}
	
	$shellApplication = new-object -com shell.application
	$zipPackage = $shellApplication.NameSpace($zipfilename)
	
	foreach($file in $input) 
	{ 
            $zipPackage.CopyHere($file.FullName)
            Start-sleep -milliseconds 500
	}
}

## usage: dir c:\demo\files\*.* -Recurse | add-Zip c:\demo\myzip.zip

function Get-Zip
{
	param([string]$zipfilename)
	if(test-path($zipfilename))
	{
		$shellApplication = new-object -com shell.application
		$zipPackage = $shellApplication.NameSpace($zipfilename)
		$zipPackage.Items() | Select Path
	}
}
## usage: Get-Zip c:\demo\myzip.zip

function Extract-Zip
{
	param([string]$zipfilename, [string] $destination)

	if(test-path($zipfilename))
	{	
		$shellApplication = new-object -com shell.application
		$zipPackage = $shellApplication.NameSpace($zipfilename)
		$destinationFolder = $shellApplication.NameSpace($destination)
		$destinationFolder.CopyHere($zipPackage.Items())
	}
}
## usage: extract-zip c:\demo\myzip.zip c:\demo\destination

myFolder = "C:\Neuer Ordner\"  
myZipFolder = "C:\Neuer Ordner\Sicherung\"  
Ext = "bak" 'Kleinbuchstaben verwenden  
Alter = 2

CounterFile = "C:\Neuer Ordner\Sicherung\" & "\ZIPPEN am " & Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2) & ".txt"  

Set objApp = CreateObject("Shell.Application")  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objCounterFile = objFSO.CreateTextFile(counterFile)

AltDatum = DateAdd("d", -Alter, Date)  

For Each objFile In objFSO.GetFolder(myFolder).Files
    strFileName = objFile.Name
    If LCase(objFSO.GetExtensionName(strFileName)) = Ext Then
        Datum = objFile.DateLastModified
        If Datum < AltDatum Then 'alte Datei  
            'Name des ZIP-Files auf Basis des Originaldateinamens bilden  
            myZipFile = myZipFolder & objFSO.GetBaseName(strFileName)& Date & ".zip"  
            objFSO.CreateTextFile(myZIPFile).Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0)) 'ZIP-Datei erstellen  
            objApp.NameSpace(myZipFile).CopyHere objFile.Path
            'WScript.Echo "Alt: " & Datum & " " & strFileName'  
            objCounterFile.WriteLine "Gezippt: " & Datum & " " & strFileName  
            intAlteDatei = intAlteDatei + 1
            'warten, bis Datei in ZIP geschrieben wurde  
            Do Until objApp.Namespace(myZIPFile).Items.Count = 1 'nur eine Datei im ZIP-File  
                WScript.Sleep 100
            Loop
            'objFile.Delete 'Datei löschen'  
        Else
            'WScript.Echo "Neu: " & Datum & " " & strFileName'  
        End If
    End If
Next
objCounterFile.WriteLine "Dateien gezippt: " & intAlteDatei  

myFolder = "C:\Neuer Ordner\"  
myZipFolder = "C:\Neuer Ordner\Sicherung\" 'besser: myFolder & "Sicherung\"  
Ext = "bak" 'Kleinbuchstaben verwenden  
Alter = 5
CounterFile = myZIPFolder & "\ZIPPEN am " & Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2) & ".txt"  

Set objApp = CreateObject("Shell.Application")  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objShell = CreateObject("Wscript.Shell")   

Set objCounterFile = objFSO.CreateTextFile(counterFile)

 
' Ordner: Jahr   
myZIPYearFolder = myZipFolder & Year(Date)
If Not objFSO.FolderExists(myZIPYearFolder) Then objFSO.CreateFolder(myZIPYearFolder) 
 
' Unterordner: Monat-Tag   
myZIPDayFolder = myZIPYearFolder & "\" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2)  
If Not (objFSO.FolderExists(myZIPDayFolder)) Then objFSO.CreateFolder(myZIPDayFolder) 

AltDatum = DateAdd("d", -Alter, Date)  

For Each objFile In objFSO.GetFolder(myFolder).Files
    strFileName = objFile.Name
    If LCase(objFSO.GetExtensionName(strFileName)) = Ext Then
        Datum = objFile.DateLastModified
        If Datum < AltDatum Then 'alte Datei  
            'Name des ZIP-Files auf Basis des Originaldateinamens bilden  
            myZipFile = myZIPDayFolder & objFSO.GetBaseName(strFileName) & ".zip"  
            objFSO.CreateTextFile(myZIPFile).Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0)) 'ZIP-Datei erstellen  
            objApp.NameSpace(myZipFile).CopyHere objFile.Path
            'WScript.Echo "Alt: " & Datum & " " & strFileName'  
            objCounterFile.WriteLine "Gezippt: " & Datum & " " & strFileName  
            intAlteDatei = intAlteDatei + 1
            'warten, bis Datei in ZIP geschrieben wurde  
            Do Until objApp.Namespace(myZIPFile).Items.Count = 1 'nur eine Datei im ZIP-File  
                WScript.Sleep 100
            Loop
            'objFile.Delete 'Datei löschen'  
        Else
            'WScript.Echo "Neu: " & Datum & " " & strFileName'  
        End If
    End If
Next
objCounterFile.WriteLine "Dateien gezippt: " & intAlteDatei  

Option Explicit