Alte Dateien u. Unterordner in Ordnerstruktur automatisch entfernen

cls
write-host "--- BEGIN --- " -foregroundcolor GREEN -backgroundcolor BLACK  
write-host "Setzte Variablen" -foregroundcolor GREEN -backgroundcolor BLACK  

#PRÜFPFAD
$CHKPATH = "D:\"  

#LOGFILES
$FEHLERFILE = "G:\fehler.txt"  
$ERFOLGFILE = "G:\okay.txt"  

#PRÜFDATEI
$EXPFILE = "G:\export.txt"  

write-host "Schreibe Prüfdatei" -foregroundcolor GREEN -backgroundcolor BLACK  
Get-ChildItem $CHKPATH -recurse | Where {$_.LastWriteTime -le "01.01.2008"} |Select-Object Name,Fullname,Length,Attributes,LastWriteTime |Export-CSV $EXPFILE –encoding "unicode"  

write-host "Lade Prüfdatei" $EXPFILE -foregroundcolor GREEN -backgroundcolor BLACK  
$FILES = Import-CSV $EXPFILE

write-host "Berechne Summe" $EXPFILE -foregroundcolor GREEN -backgroundcolor BLACK  
$FILES |Measure-Object length -sum

$MAX = $Files.count
$COUNTER = 0

write-host "Starte Vorgang" $EXPFILE -foregroundcolor GREEN -backgroundcolor BLACK  
foreach ($FILE in $FILES)
 {
  if ($FILE.Attributes -eq "Archive")  
   {
    $COUNTER = $COUNTER + 1 
    "Bearbeite " + $COUNTER + " von " + $MAX + ": " + $FILE.NAME    

    $DESTPATH = $file.fullname.split(":")  
    $DESTPATH = "G:" + $DESTPATH[1]    

    $temp = $DESTPATH.TRIMEND($FILE.NAME)
    $temp = $temp.trimend("\")  

    write-host "Erzeuge Datei" $DESTPATH  
    NEW-ITEM $temp -type directory -force
    COPY-ITEM $FILE.FULLNAME $DESTPATH -force
     if ($FILE.LENGTH -eq (GET-ITEM $DESTPATH).LENGTH)
      {
       write-host "ERFOLGREICH" -foregroundcolor GREEN -backgroundcolor BLACK  
       $FILE.FULLNAME |OUT-FILE $ERFOLGFILE -append
      }ELSE
      {
       write-host "FEHLER" -foregroundcolor RED -backgroundcolor BLACK  
       $FILE.FULLNAME |OUT-FILE $FEHLERFILE -append       
      }  
   }
 }
write-host "--- ENDE --- " -foregroundcolor GREEN -backgroundcolor BLACK