Einzelnen Beitrag anzeigen
Alt 06.11.2008, 14:36   #3 (permalink)
bigfoot996
Hardware Freak
 
Benutzerbild von bigfoot996
 

Registriert seit: 14.02.2005
Beiträge: 5.160

bigfoot996 ist jedem bekanntbigfoot996 ist jedem bekanntbigfoot996 ist jedem bekanntbigfoot996 ist jedem bekanntbigfoot996 ist jedem bekanntbigfoot996 ist jedem bekannt

Standard AW: [PERL] Dateien die alter als 30 Tage sind zippen...

Code:
function New-Zip
{
    param([string]$zipfilename)
    set-content $zipfilename (\"PK\" + [char]5 + [char]6 + (\"$([char]0)\" * 18))
    (dir $zipfilename).IsReadOnly = $FALSE
}

new-zip c:\Powershell\TESTSCRIPTS\Archiv\archiv.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
    }
}

dir c:\Powershell\TESTSCRIPTS\*.* -Recurse | add-Zip c:\Powershell\TESTSCRIPTS\Archiv\archiv.zip

$now = get-date
dir C:\POWERSHELL\Testscripts\*.* -recurse | where-object {($now - $_.LastWriteTime).Days -gt 10} | remove-item
falls es jemanden interessiert...habs letztendlich selber hinbekommen, vllt. kanns ja mal irgendwer brauchen.
bigfoot996 ist offline   Mit Zitat antworten
2 Benutzer bedanken sich für den Beitrag:
tele (06.11.2008), [EID]-Mr.GiZMO (06.11.2008)