Script to Delete Files

justinmcconkey2 · 2022-05-18T15:17:35.000Z

Hello,

I was wondering if anyone had a script or where to look to get a script to delete all files in a folder except certain file extensions. We have a QuickBooks mapped drive with client QB files but employees has been dumping all sorts of files into the folders. I am looking to run a script that would delete all files except QuickBooks file extensions. Any suggestions?

Neally · 2022-05-18T15:20:03.000Z

Should be pretty easy to build yourself.

You can use ‘get-childitem’ to gather the files and you can exclude file types

Get-ChildItem D:\Temp\ -Recurse -Exclude *.html,*.xml

from there you use ‘remove-item’

Give it a try.

if you get stuck, feel free to post the code you have tried. Test it on a test folder first.

If you post code, please use the ‘Insert Code’ button. Please and thank you!

PLEASE READ BEFORE POSTING! Read if you're new to the PowerShell forum! Programming & Development

Hi, and welcome to the PowerShell forum! Don’t apologize for being a “noob” or “newbie” or “n00b.” There’s just no need – nobody will think you’re stupid, and the forums are all about asking questions. Just ask! Use a descriptive subject. Don’t say “Need help” or “PowerShell Help”, actually summarize what the problem is. It helps the rest of us keep track of which problem is which. Don’t post massive scripts. We’re all volunteers and we don’t have time to read all that, nor will we copy…

tb33t · 2022-05-18T19:02:00.000Z

Check out the script center here https://community.spiceworks.com/scripts?source=navbar-footer

There’s likely something similar to what you’re looking for with the exemption for file extensions you don’t want deleted.

thelanranger · 2022-05-18T19:03:44.000Z

cd\ directory
attrib -a *.*
attrib +a *.*
attrib -a *.qbw
del /q /a:a *.*

Add an attrib -a line for each for each file extension you do not want to delete. This will delete all file in the current directory that have the archive bit set.

justinmcconkey2 · 2022-05-18T19:15:30.000Z

This is what I have so far. I’ve ran it but it doesn’t exclude and deletes what I am trying to exclude. This is for a test before I put in the QuickBooks file extensions.

Get-ChildItem 'C:\Users\localadmin' -Exclude *.txt *.rtf *.accdb |
    Remove-Item -Recurse -Verbose

ealy · 2022-05-19T10:13:09.000Z

Try it like this.

  Get-ChildItem 'C:\Users\localadmin' -Recurse -Exclude *.txt, *.rtf, *.accdb |
    Remove-Item -Verbose -Whatif

Neally · 2022-05-19T14:17:15.000Z

Justin McConkey:

This is what I have so far. I’ve ran it but it doesn’t exclude and deletes what I am trying to exclude. This is for a test before I put in the QuickBooks file extensions.
Get-ChildItem 'C:\Users\localadmin' -Exclude *.txt *.rtf *.accdb |
    Remove-Item -Recurse -Verbose

a not so efficient solution would be trying the inverse.
select all and remove the QB one. (I’m not sure what the actual QuickBooks one is)

Get-ChildItem 'C:\Users\localadmin' |
where-object {$_.Extension -ne '.qb'} |
Remove-Item -Recurse -Verbose -whatif

erland41 · 2022-05-20T02:51:06.000Z

Hi.

I have wrote a script that zip or delete files och catalog. Using parameter 5 and 6 you kan exclude two file-extensions.

the code you can use is lines 167(geting file names and path + exclude) and code between lines: 247 - 284 i attached code.

Regards

Erland

Code:

# Exempel på Starta skript: katalog att rensa + hur många dagar bakåt att rensa, ex: -$DagarAttSpara 180 betyder filer äldre än 6månader rensas.
#Start program delete:
# K:\team_Rabbis\Powershell\stadning\rensa_filer_kataloger_ev_andelse_zip_del.ps1 -DagarAttSpara 8 -LoggKatalog K:\powershell\log -KatalogRensaZipa K:\testmapp_PS\test16 -Visa 1
#lokal test vid zipning av filer
# K:\team_Rabbis\Powershell\stadning\rensa_filer_kataloger_ev_andelse_zip_del.ps1 -DagarAttSpara 10 -RensaEllerZipa 0 -LoggKatalog K:\powershell\log -KatalogRensaZipa K:\testmapp_PS\test15 -Visa 1
#
#Tips
#Koll när filen skapades: $_.CreationTime.
#
#: -Include *.txt eller frånta om man vill rensa allt annat: -Exclude *.txt
#
########################################################################################################################################
#Parameter förklaring:
#
#Om man ev vill kolla på sista skriv datum dvs ta bort filer som inte blivit uppdaterad under de sista x dagarna.
#$_.LastWriteTime 
#
# Filer med viss ändelse som man vill inte vill ska ingå i rensningen anges i två parameterar.
# $FilAndelseExcl1
# $FilAndelseExcl2
#
#Antal dagar som loggar skall ligga kvar. Räknas bakåt från körningens datum. Default satt till 180 dagar ~ 6 måndader
#$DagarAttSpara
#
#Vilken katalog men skall zip:a eller rensa i. Default satt till Dummy katalog = skickas ingen katalog in stoppar programmet.
#$KatalogRensaZipa
#
#Startkatalog: parameter satt till 1 rensas filer/kataloger rekursivt och om parametern satt till 0 är att man vill zipa filer(enbart), default satt till 1=deleta filer.
#$RensaEllerZipa
#
#$LoggKatalog = "c:\temp\"
#
#$Driver 
#Anger vilken Enhets bokstav som hur mycket diskutrymme som finns kvar. E:\ är default. Anges till parametern utan fnuttar: E
Param(
    #[ValidateScript({Test-Path $_})]
    [Parameter(Mandatory=$False,Position=1)]
    [string]$DagarAttSpara = 180
    ,
    [Parameter(Mandatory=$False,Position=2)]
    [string]$KatalogRensaZipa = 'dummyKatalog'
    ,
    [Parameter(Mandatory=$False,Position=3)]
    [string]$RensaEllerZipa = 1
    ,
    [Parameter(Mandatory=$False,Position=4)]
    [string]$LoggKatalog = 'c:\temp\'
    ,
    [Parameter(Mandatory=$False,Position=5)]
    [string]$FilAndelseExcl1 = 'dummy1'
    ,
    [Parameter(Mandatory=$False,Position=6)]
    [string]$FilAndelseExcl2 = 'dummy2'
    ,
    [Parameter(Mandatory=$False,Position=7)]
    [string]$Visa
    ,
    [Parameter(Mandatory=$False,Position=7)]
    [string]$Driver = 'E'
)

#Interna parametrar
#Används för att skriva dag i logg-filen
$DagSkrivit =1
$zipade_filer = "zipade_filer.txt"
$deletade_filer = "deletade_filer.txt"
$deletade_kataloger = "deletade_kataloger.txt"
#räknare för att hålla reda på hur många filer som zip/delatas
$CountFiles = 0
$CountFolder = 0
$CountFiles_zip = $False
$CountFiles_del = $False
$CountKatalog= $False

#7Zip-lokalt
$7zipPath = "C:\Program Files\7-Zip\7z.exe"
#$7zipPath = "E:\Appl\7-Zip\7z.exe"
if (-not (Test-Path -Path $7zipPath -PathType Leaf)) {
	New-Item $LocalPath\ERROR_$prog
	Set-Content $LocalPath\ERROR_$prog "$prog : $idag_tid : 7-zip Error Error: 7 zip file '$7zipPath' not found. $_.Exception.Message"
    throw "7 zip file '$7zipPath' not found"
}
Set-Alias 7zip $7zipPath

if($Visa)
{
    write-host "Fil som skall deletas/Zipas i katalog status: $RensaEllerZipa "
    write-host "logfils katalog: $LoggKatalog"
    write-host "loggarnas tid att spara: $DagarAttSpara"
}

#Ta fram datum, till att tidsstämpla filerna
$idag = Get-Date -Format "yyyyMMdd"
$idag_date = Get-Date -Format "yyyy-MM-dd"
$igar = (Get-Date).AddDays(-1)
$igar_date = (Get-Date).AddDays(-1)
$igar = Get-Date $igar -Format "yyyyMMdd"
$igar_date = Get-Date $igar_date -Format "yyyy-MM-dd"
$TvaDagar = (Get-Date).AddDays(-2)
$TvaDagare_date = (Get-Date).AddDays(-2)
$TvaDagar = Get-Date $TvaDagar -Format "yyyyMMdd"
$TvaDagare_date = Get-Date $TvaDagare_date -Format "yyyy-MM-dd"
$ar = Get-Date -Format "yyyy"
$manad = Get-Date -Format "MM"
$ArManad = $ar+$manad
$idag_tid = Get-Date -Format "yyyyMMdd-HH:mm:ss"
$two_weeks_ago = Get-Date
$two_weeks_ago = $two_weeks_ago.AddDays(-14).ToString("yyyy-MM-dd")
$prog=$MyInvocation.MyCommand.Name

 
######################################################################################################################
# Avsnitt där kontroll att katalog finns och avslutas med \
#
#####################################################################################################################
#Se till att katalog att rensa avslutas med \ och att katalog för städning\zip:A finns, annars avsluta. Kolla om det skall renas eller zip:as
#$isFolder = Test-Path $KatalogAttRensa -PathType Container
$isFolderDel = Test-Path $KatalogRensaZipa -PathType Container

if($Visa){write-host "Katalog att rensa/zip 0=zipa filer, 1=deleta, inskickat värde: $RensaEllerZipa "} 
if($Visa){write-host "Katalog rensa: $KatalogRensaZipa"} 
if($Visa -and $RensaEllerZipa -eq 1){write-host "StartKatalog att rensa innan koll: $KatalogRensaZipa"} 
if($Visa -and $RensaEllerZipa -eq 0){write-host "StartKatalog att zipa innan koll: $KatalogRensaZipa"} 

if ($isFolderDel -eq $True ) {
    if ($KatalogRensaZipa.EndsWith('\') -eq $false) {
        $KatalogRensaZipa += '\'
    }
}  
else  {
    if($Visa) {write-host "Katalog att rensa/Zipa: $KatalogRensaZipa, finns ej så program avslutas."}
    exit
}
if($Visa) {write-host "Katalog att rensa: $KatalogRensaZipa"}

#Se till att katalog där loggning skall ske till avslutas med \ och finns, annars så skapas katalogen.
$isLogFolder = Test-Path $LoggKatalog -PathType Container
if($Visa) {write-host "Katalog som loggfil skrivs till: $LoggKatalog"}

if ($isLogFolder -eq $True) {
    if ($LoggKatalog.EndsWith('\') -eq $false) {
        $LoggKatalog += '\'
    }
} 
else {
    if($Visa) {write-host "Katalog att skriva logfil till: $LoggKatalog, finns ej så katalog skapas."}

    New-Item -ItemType Directory -Force -Path $LoggKatalog
    #även se till att katalogen avslutas med \
    if ($LoggKatalog.EndsWith('\') -eq $false) {
        $LoggKatalog += '\'
    }
}
if($Visa) {write-host "logkatalog avslutas nu med: $LoggKatalog"}

################################################################################################################################
# Filer: rensning eller zip
###############################################################################################################################

#Ta fram filer att rensa även från underkataloger -Recurse. -Force undantrycka fel -File för att enbart ta med filer.
#$oldFiles = Get-ChildItem -Path $KatalogAttRensa -include *.$FilAndelse -File -Recurse -Force 
$oldFiles = Get-ChildItem -Path $KatalogRensaZipa -Exclude *.$FilAndelseExcl1, *.$FilAndelseExcl2 -File -Recurse

if($Visa -and $RensaEllerZipa -eq 1 -and $oldFiles){write-host "Filer/kataloger skall deletas: $oldFiles"} ElseIf($Visa -and $RensaEllerZipa -eq 0 -and $oldFiles){write-host "Filer skall zipas: $oldFiles"}  Else{ if($Visa){write-host "Det här gick ju inte bra = ingen träfflista"} Exit}

#loopa igenom fil listan och se vilka filer som skall tas bort = ädre än antalet dagar enl inparametern.
foreach ($oldFile in $oldFiles) {

#koll om parameter för att filer skall zipas är satt + koll att filen inte redan är zipad
    if($RensaEllerZipa -eq 0 -and $oldFile -notmatch ".zip"){
        #kolla om det är en fil eller katalog
        if($Visa) {write-host "Fil som kollas: $oldFile"}
        $isFil =  (!$oldFile.PSIsContainer)
        #$isFolder = Test-Path $KatalogCopFran -PathType Container
        if($Visa) {write-host "Var det en fil: $isFil"}
        if($Visa) {write-host $oldFile.LastWriteTime}
        if($Visa) {write-host "Körnings tidpunkt jmf: " (Get-Date).AddDays(-$DagarAttSpara)}

        #Prep för omdöpning av filändelse byte till .zip
        $file_zipped = $oldFile
	    $newExtension = "zip"
	    $file_zipped = [io.path]::ChangeExtension($file_zipped,$newExtension)
	    $file_zipped_path = $file_zipped
	    if ($Visa) { Write-Output "Visa: KatalogRensaZipa: $KatalogRensaZipa" }
        if ($Visa) { Write-Output "Visa: file_zipped_path $file_zipped_path" }
        if ($Visa) { Write-Output "Visa: localfile: $oldFile" }
	    if ($Visa) { Write-Output "Visa: KatalogRensaZipa localFile: $KatalogRensaZipa$oldFile" }
        if ($Visa) { Write-Output "Visa: KatalogRensaZipa sökväg: $file_zipped_path" }
        if ($Visa) { Write-Output "Visa: Del av filnamn: $file_zipped" }
        if ($Visa) { Write-Output "Visa: Är lastWr vs DagSpara TRUE: " }

        #Fortsätt och verifiera enbart om det är en fil
        if($isFil){

            #Skriva dag i logg-filen för rensade filer.
            if($DagSkrivit){Get-Date -Format "yyyy-MM-dd HH:mm" | Out-File $LoggKatalog\$ArManad'_'$zipade_filer -Append}
            #Bara skriva dag i filen en gång.
            $DagSkrivit=0

            #om filen är äldre än angivet antal dag = zip:a filen
            if($oldFile.LastWriteTime -lt (Get-Date).AddDays(-$DagarAttSpara)) {

                if($Visa) {write-host "Fil som skall zip:as: $oldFile"}
                if($Visa) {write-host "Program som kör: $prog"}
                if($Visa) {write-host "sökväg: $oldFile"}
                if($Visa) {write-host "filens tid: " $oldFile.LastWriteTime}
                if($Visa) {write-host "dagar bakåt: " (Get-Date).AddDays(-$DagarAttSpara)}

                #zip:ar filen till samma katalog och sedan rensa bort orginal filen.
                7zip a -sdel $file_zipped_path $oldFile 

                #Räkna antalet filer som zip:as och sätta att filer har zip:as.
                $CountFiles +=1
                $CountFiles_zip = $True

              if ($? -ne "True")
                {
                Write-Error "$prog : $idag_tid : Problem med 7-zip"
			    New-Item $LocalPath\ERROR_zip_$localFile
			    Set-Content $LocalPath\ERROR_zip_$localFile "$prog : $idag_tid : Problem med att använda 7-zip"
			    continue
                }
	            if ($Visa) { Write-Output "Visa: file_zipped_path: $oldFile" }

                $oldFile.FullName | Out-File $LoggKatalog\$ArManad'_'$zipade_filer -Append
              
            }
            else {
                if($Visa) {write-host "Fil var inte tillräckligt gammal: $oldFile"}
            }
        }
        else {

              if($Visa) {write-host "Detta var ingen fil: $oldFile"}
        }
         
    }

    #Filerna skall rensas
    Elseif($RensaEllerZipa -eq 1){
        #kolla om det är en fil eller katalog
        if($Visa) {write-host "Fil som kollas: $oldFile"}
        $isFil =  (!$oldFile.PSIsContainer)
        #$isFolder = Test-Path $KatalogCopFran -PathType Container
        if($Visa) {write-host "Var det en fil: $isFil"}

        #Fortsätt och verifiera enbart om det är en fil
        if($isFil){

            #Skriva dag i logg-filen för rensade filer.
            if($DagSkrivit){Get-Date -Format "yyyy-mm-dd HH:mm" | Out-File $LoggKatalog\$ArManad'_'$deletade_filer -Append}
            #Bara skriva dag i filen en gång.
            $DagSkrivit=0

            #om filen är äldre än angivet antal dag = deleta
            if($oldFile.LastWriteTime -lt (Get-Date).AddDays(-$DagarAttSpara)) {

                if($Visa) {write-host "Fil som skall deletas: $oldFile"}
                Remove-Item $oldFile.FullName -Force
                $oldFile.FullName | Out-File $LoggKatalog\$ArManad'_'$deletade_filer -Append

                #Räkna antalet filer som deletas och sätta att filer har deletats.
                $CountFiles +=1
                $CountFiles_del = $True
              
            }
            else {
                if($Visa) {write-host "Fil var inte tillräckligt gammal: $oldFile"}
            }
        }
        else {

              if($Visa) {write-host "Detta var ingen fil: $oldFile"}
        }

    }
    Else {
        {write-host "Ingen parameter för katalog att rensa i eller zipa har angets, programmet bör redan ha avslutats vid katalog kontrollen!!!!!!!!!"}
        exit
    }
}

#kolla tillgänglig volym på E:\
#$vDisk = Get-PSDrive K | Select-Object Used,@{'Name' = 'Free (GB)'; Expression= { [int]($_.Free / 1GB) }}
$vDisk = [math]::Round((Get-Volume -DriveLetter $Driver).SizeRemaining / 1GB) 
if($Visa) {write-host "utrymme kvar på E: " $vDisk '(GB)'}

if($RensaEllerZipa -eq 0) {"Antal filer som Zip:ats: " + $CountFiles | Out-File $LoggKatalog\$ArManad'_'$zipade_filer -Append}
if($RensaEllerZipa -eq 0){"Plats kvar på E:\ " + $vDisk +" GB" | Out-File $LoggKatalog\$ArManad'_'$zipade_filer -Append}

if($RensaEllerZipa -eq 1) {"Antal filer som deletats: " + $CountFiles | Out-File $LoggKatalog\$ArManad'_'$deletade_filer -Append}
if($RensaEllerZipa -eq 1){"Plats kvar på E:\ " + $vDisk +" GB"| Out-File $LoggKatalog\$ArManad'_'$deletade_filer -Append}

####################################################################################################################
# Rensa kataloger
###################################################################################################################

#Ta fram kataloger att rensa även från underkataloger -Recurse. Sort-Object -Property $KatalogAttRensa.FullName. Beroende på om parameter för zip eller rensning är satt.
$oldKatalogs = if($RensaEllerZipa -eq 1){Get-ChildItem -Path $KatalogRensaZipa -Directory -Recurse} else {write-host "Kataloger skall inte deletas"}
#Sorterar efter folder djup. *Används i foreach-loop istället.
#$oldKatalogs | Select-Object FullName | Sort-Object -Descending FullName
#$oldKatalogs | Select-Object FullName, @{Name="FolderDepth";Expression={$_.DirectoryName.Split('\').Count}} | Sort-Object -Descending FolderDepth,FullName
if($Visa) {write-host "Kataloger att ev rensa: $oldKatalogs"}

#Sätta om parameter för skrivning till fil iom nu kollar vi på kataloger
$DagSkrivit=1
#Skriva dag i logg-filen för rensade Kataloger.
if($DagSkrivit){Get-Date -Format "yyyy-MM-dd HH:mm" | Out-File $LoggKatalog\$ArManad'_'$deletade_kataloger -Append}
#Bara skriva dag i filen en gång.
$DagSkrivit=0

#loopa igenom katalogl listan och se vilka kataloger som skall tas bort = ädre än antalet dagar enl inparametern.
foreach ($oldkat in ($oldKatalogs | Sort-Object -Descending FullName) ) {

    #test om det är en katalog
    if($Visa) {write-host "Katalog som kollas: $oldkat"}
    # ev använda denna: $isFil =  (!$oldFile.PSIsContainer)
    $isFolder = Test-Path $oldkat.FullName -PathType Container
    if($Visa) {write-host "Var det en katalog: $isFolder"}

    #Räkna antalet filer som ev finns kvar i katalogen som deletas + ev subkataloger.
    $AntFiler = (Get-ChildItem $oldKat.FullName -File -Recurse).Count  
    if($Visa) {write-host "Frågan är om jag räknar: $AntFiler"}

    #Koll om det är en katalog, koll om det finns filer kvar: $AntFiler från ovan, koll om katalogen är tillräckligt gammal för rensning.
    #iom borde bara vara kataloger.
    if ( ($isFolder -eq $True) -and ($oldkat.LastWriteTime -lt (Get-Date).AddDays(-$DagarAttSpara)) -and ($AntFiler -eq 0) ) {

                if($Visa) {write-host "Katalog som skall deletas: $oldkat"}
                Remove-Item $oldkat.FullName -Force -Recurse #-and ($AntFiler -eq 0) 
                
                #Räkna antalet filer som zip:as och sätta att filer har zip:as
                $CountFolder +=1
                $CountKatalog = $True

                $oldkat.FullName | Out-File $LoggKatalog\$ArManad'_'$deletade_kataloger -Append
    } 
    else {

        if($Visa) {write-host "Katalog var inte tillräckligt gammal för att deletas eller innehåller filer i katalog/subkatalog: $oldkat"}
    }

   #Bara skriva dag i filen en gång.
   $DagSkrivit=0
}
if($CountKatalog) {"Antal kataloger som deletats: " + $CountFolder | Out-File $LoggKatalog\$ArManad'_'$deletade_kataloger -Append} else {"Antal kataloger som deletats: 0" | Out-File $LoggKatalog\$ArManad'_'$deletade_kataloger -Append}

# Exempel på Starta skript: katalog att rensa + hur många dagar bakåt att rensa, ex: -$DagarAttSpara 180 betyder filer äldre än 6månader rensas.
#Start program delete:
# K:\team_Rabbis\Powershell\stadning\rensa_filer_kataloger_ev_andelse_zip_del.ps1 -DagarAttSpara 8 -LoggKatalog K:\powershell\log -KatalogRensaZipa K:\testmapp_PS\test16 -Visa 1
#lokal test vid zipning av filer
# K:\team_Rabbis\Powershell\stadning\rensa_filer_kataloger_ev_andelse_zip_del.ps1 -DagarAttSpara 10 -RensaEllerZipa 0 -LoggKatalog K:\powershell\log -KatalogRensaZipa K:\testmapp_PS\test15 -Visa 1
#
#Tips
#Koll när filen skapades: $_.CreationTime.
#
#: -Include *.txt eller frånta om man vill rensa allt annat: -Exclude *.txt
#
########################################################################################################################################
#Parameter förklaring:
#
#Om man ev vill kolla på sista skriv datum dvs ta bort filer som inte blivit uppdaterad under de sista x dagarna.
#$_.LastWriteTime 
#
# Filer med viss ändelse som man vill inte vill ska ingå i rensningen anges i två parameterar.
# $FilAndelseExcl1
# $FilAndelseExcl2
#
#Antal dagar som loggar skall ligga kvar. Räknas bakåt från körningens datum. Default satt till 180 dagar ~ 6 måndader
#$DagarAttSpara
#
#Vilken katalog men skall zip:a eller rensa i. Default satt till Dummy katalog = skickas ingen katalog in stoppar programmet.
#$KatalogRensaZipa
#
#Startkatalog: parameter satt till 1 rensas filer/kataloger rekursivt och om parametern satt till 0 är att man vill zipa filer(enbart), default satt till 1=deleta filer.
#$RensaEllerZipa
#
#$LoggKatalog = "c:\temp\"
#
#$Driver 
#Anger vilken Enhets bokstav som hur mycket diskutrymme som finns kvar. E:\ är default. Anges till parametern utan fnuttar: E
Param(
    #[ValidateScript({Test-Path $_})]
    [Parameter(Mandatory=$False,Position=1)]
    [string]$DagarAttSpara = 180
    ,
    [Parameter(Mandatory=$False,Position=2)]
    [string]$KatalogRensaZipa = 'dummyKatalog'
    ,
    [Parameter(Mandatory=$False,Position=3)]
    [string]$RensaEllerZipa = 1
    ,
    [Parameter(Mandatory=$False,Position=4)]
    [string]$LoggKatalog = 'c:\temp\'
    ,
    [Parameter(Mandatory=$False,Position=5)]
    [string]$FilAndelseExcl1 = 'dummy1'
    ,
    [Parameter(Mandatory=$False,Position=6)]
    [string]$FilAndelseExcl2 = 'dummy2'
    ,
    [Parameter(Mandatory=$False,Position=7)]
    [string]$Visa
    ,
    [Parameter(Mandatory=$False,Position=7)]
    [string]$Driver = 'E'
)

#Interna parametrar
#Används för att skriva dag i logg-filen
$DagSkrivit =1
$zipade_filer = "zipade_filer.txt"
$deletade_filer = "deletade_filer.txt"
$deletade_kataloger = "deletade_kataloger.txt"
#räknare för att hålla reda på hur många filer som zip/delatas
$CountFiles = 0
$CountFolder = 0
$CountFiles_zip = $False
$CountFiles_del = $False
$CountKatalog= $False

#7Zip-lokalt
$7zipPath = "C:\Program Files\7-Zip\7z.exe"
#$7zipPath = "E:\Appl\7-Zip\7z.exe"
if (-not (Test-Path -Path $7zipPath -PathType Leaf)) {
	New-Item $LocalPath\ERROR_$prog
	Set-Content $LocalPath\ERROR_$prog "$prog : $idag_tid : 7-zip Error Error: 7 zip file '$7zipPath' not found. $_.Exception.Message"
    throw "7 zip file '$7zipPath' not found"
}
Set-Alias 7zip $7zipPath

if($Visa)
{
    write-host "Fil som skall deletas/Zipas i katalog status: $RensaEllerZipa "
    write-host "logfils katalog: $LoggKatalog"
    write-host "loggarnas tid att spara: $DagarAttSpara"
}

#Ta fram datum, till att tidsstämpla filerna
$idag = Get-Date -Format "yyyyMMdd"
$idag_date = Get-Date -Format "yyyy-MM-dd"
$igar = (Get-Date).AddDays(-1)
$igar_date = (Get-Date).AddDays(-1)
$igar = Get-Date $igar -Format "yyyyMMdd"
$igar_date = Get-Date $igar_date -Format "yyyy-MM-dd"
$TvaDagar = (Get-Date).AddDays(-2)
$TvaDagare_date = (Get-Date).AddDays(-2)
$TvaDagar = Get-Date $TvaDagar -Format "yyyyMMdd"
$TvaDagare_date = Get-Date $TvaDagare_date -Format "yyyy-MM-dd"
$ar = Get-Date -Format "yyyy"
$manad = Get-Date -Format "MM"
$ArManad = $ar+$manad
$idag_tid = Get-Date -Format "yyyyMMdd-HH:mm:ss"
$two_weeks_ago = Get-Date
$two_weeks_ago = $two_weeks_ago.AddDays(-14).ToString("yyyy-MM-dd")
$prog=$MyInvocation.MyCommand.Name

 
######################################################################################################################
# Avsnitt där kontroll att katalog finns och avslutas med \
#
#####################################################################################################################
#Se till att katalog att rensa avslutas med \ och att katalog för städning\zip:A finns, annars avsluta. Kolla om det skall renas eller zip:as
#$isFolder = Test-Path $KatalogAttRensa -PathType Container
$isFolderDel = Test-Path $KatalogRensaZipa -PathType Container

if($Visa){write-host "Katalog att rensa/zip 0=zipa filer, 1=deleta, inskickat värde: $RensaEllerZipa "} 
if($Visa){write-host "Katalog rensa: $KatalogRensaZipa"} 
if($Visa -and $RensaEllerZipa -eq 1){write-host "StartKatalog att rensa innan koll: $KatalogRensaZipa"} 
if($Visa -and $RensaEllerZipa -eq 0){write-host "StartKatalog att zipa innan koll: $KatalogRensaZipa"} 

if ($isFolderDel -eq $True ) {
    if ($KatalogRensaZipa.EndsWith('\') -eq $false) {
        $KatalogRensaZipa += '\'
    }
}  
else  {
    if($Visa) {write-host "Katalog att rensa/Zipa: $KatalogRensaZipa, finns ej så program avslutas."}
    exit
}
if($Visa) {write-host "Katalog att rensa: $KatalogRensaZipa"}

#Se till att katalog där loggning skall ske till avslutas med \ och finns, annars så skapas katalogen.
$isLogFolder = Test-Path $LoggKatalog -PathType Container
if($Visa) {write-host "Katalog som loggfil skrivs till: $LoggKatalog"}

if ($isLogFolder -eq $True) {
    if ($LoggKatalog.EndsWith('\') -eq $false) {
        $LoggKatalog += '\'
    }
} 
else {
    if($Visa) {write-host "Katalog att skriva logfil till: $LoggKatalog, finns ej så katalog skapas."}

    New-Item -ItemType Directory -Force -Path $LoggKatalog
    #även se till att katalogen avslutas med \
    if ($LoggKatalog.EndsWith('\') -eq $false) {
        $LoggKatalog += '\'
    }
}
if($Visa) {write-host "logkatalog avslutas nu med: $LoggKatalog"}

################################################################################################################################
# Filer: rensning eller zip
###############################################################################################################################

#Ta fram filer att rensa även från underkataloger -Recurse. -Force undantrycka fel -File för att enbart ta med filer.
#$oldFiles = Get-ChildItem -Path $KatalogAttRensa -include *.$FilAndelse -File -Recurse -Force 
$oldFiles = Get-ChildItem -Path $KatalogRensaZipa -Exclude *.$FilAndelseExcl1, *.$FilAndelseExcl2 -File -Recurse

if($Visa -and $RensaEllerZipa -eq 1 -and $oldFiles){write-host "Filer/kataloger skall deletas: $oldFiles"} ElseIf($Visa -and $RensaEllerZipa -eq 0 -and $oldFiles){write-host "Filer skall zipas: $oldFiles"}  Else{ if($Visa){write-host "Det här gick ju inte bra = ingen träfflista"} Exit}

#loopa igenom fil listan och se vilka filer som skall tas bort = ädre än antalet dagar enl inparametern.
foreach ($oldFile in $oldFiles) {

#koll om parameter för att filer skall zipas är satt + koll att filen inte redan är zipad
    if($RensaEllerZipa -eq 0 -and $oldFile -notmatch ".zip"){
        #kolla om det är en fil eller katalog
        if($Visa) {write-host "Fil som kollas: $oldFile"}
        $isFil =  (!$oldFile.PSIsContainer)
        #$isFolder = Test-Path $KatalogCopFran -PathType Container
        if($Visa) {write-host "Var det en fil: $isFil"}
        if($Visa) {write-host $oldFile.LastWriteTime}
        if($Visa) {write-host "Körnings tidpunkt jmf: " (Get-Date).AddDays(-$DagarAttSpara)}

        #Prep för omdöpning av filändelse byte till .zip
        $file_zipped = $oldFile
	    $newExtension = "zip"
	    $file_zipped = [io.path]::ChangeExtension($file_zipped,$newExtension)
	    $file_zipped_path = $file_zipped
	    if ($Visa) { Write-Output "Visa: KatalogRensaZipa: $KatalogRensaZipa" }
        if ($Visa) { Write-Output "Visa: file_zipped_path $file_zipped_path" }
        if ($Visa) { Write-Output "Visa: localfile: $oldFile" }
	    if ($Visa) { Write-Output "Visa: KatalogRensaZipa localFile: $KatalogRensaZipa$oldFile" }
        if ($Visa) { Write-Output "Visa: KatalogRensaZipa sökväg: $file_zipped_path" }
        if ($Visa) { Write-Output "Visa: Del av filnamn: $file_zipped" }
        if ($Visa) { Write-Output "Visa: Är lastWr vs DagSpara TRUE: " }

        #Fortsätt och verifiera enbart om det är en fil
        if($isFil){

            #Skriva dag i logg-filen för rensade filer.
            if($DagSkrivit){Get-Date -Format "yyyy-MM-dd HH:mm" | Out-File $LoggKatalog\$ArManad'_'$zipade_filer -Append}
            #Bara skriva dag i filen en gång.
            $DagSkrivit=0

            #om filen är äldre än angivet antal dag = zip:a filen
            if($oldFile.LastWriteTime -lt (Get-Date).AddDays(-$DagarAttSpara)) {

                if($Visa) {write-host "Fil som skall zip:as: $oldFile"}
                if($Visa) {write-host "Program som kör: $prog"}
                if($Visa) {write-host "sökväg: $oldFile"}
                if($Visa) {write-host "filens tid: " $oldFile.LastWriteTime}
                if($Visa) {write-host "dagar bakåt: " (Get-Date).AddDays(-$DagarAttSpara)}

                #zip:ar filen till samma katalog och sedan rensa bort orginal filen.
                7zip a -sdel $file_zipped_path $oldFile 

                #Räkna antalet filer som zip:as och sätta att filer har zip:as.
                $CountFiles +=1
                $CountFiles_zip = $True

              if ($? -ne "True")
                {
                Write-Error "$prog : $idag_tid : Problem med 7-zip"
			    New-Item $LocalPath\ERROR_zip_$localFile
			    Set-Content $LocalPath\ERROR_zip_$localFile "$prog : $idag_tid : Problem med att använda 7-zip"
			    continue
                }
	            if ($Visa) { Write-Output "Visa: file_zipped_path: $oldFile" }

                $oldFile.FullName | Out-File $LoggKatalog\$ArManad'_'$zipade_filer -Append
              
            }
            else {
                if($Visa) {write-host "Fil var inte tillräckligt gammal: $oldFile"}
            }
        }
        else {

              if($Visa) {write-host "Detta var ingen fil: $oldFile"}
        }
         
    }

    #Filerna skall rensas
    Elseif($RensaEllerZipa -eq 1){
        #kolla om det är en fil eller katalog
        if($Visa) {write-host "Fil som kollas: $oldFile"}
        $isFil =  (!$oldFile.PSIsContainer)
        #$isFolder = Test-Path $KatalogCopFran -PathType Container
        if($Visa) {write-host "Var det en fil: $isFil"}

        #Fortsätt och verifiera enbart om det är en fil
        if($isFil){

            #Skriva dag i logg-filen för rensade filer.
            if($DagSkrivit){Get-Date -Format "yyyy-mm-dd HH:mm" | Out-File $LoggKatalog\$ArManad'_'$deletade_filer -Append}
            #Bara skriva dag i filen en gång.
            $DagSkrivit=0

            #om filen är äldre än angivet antal dag = deleta
            if($oldFile.LastWriteTime -lt (Get-Date).AddDays(-$DagarAttSpara)) {

                if($Visa) {write-host "Fil som skall deletas: $oldFile"}
                Remove-Item $oldFile.FullName -Force
                $oldFile.FullName | Out-File $LoggKatalog\$ArManad'_'$deletade_filer -Append

                #Räkna antalet filer som deletas och sätta att filer har deletats.
                $CountFiles +=1
                $CountFiles_del = $True
              
            }
            else {
                if($Visa) {write-host "Fil var inte tillräckligt gammal: $oldFile"}
            }
        }
        else {

              if($Visa) {write-host "Detta var ingen fil: $oldFile"}
        }

    }
    Else {
        {write-host "Ingen parameter för katalog att rensa i eller zipa har angets, programmet bör redan ha avslutats vid katalog kontrollen!!!!!!!!!"}
        exit
    }
}

#kolla tillgänglig volym på E:\
#$vDisk = Get-PSDrive K | Select-Object Used,@{'Name' = 'Free (GB)'; Expression= { [int]($_.Free / 1GB) }}
$vDisk = [math]::Round((Get-Volume -DriveLetter $Driver).SizeRemaining / 1GB) 
if($Visa) {write-host "utrymme kvar på E: " $vDisk '(GB)'}

if($RensaEllerZipa -eq 0) {"Antal filer som Zip:ats: " + $CountFiles | Out-File $LoggKatalog\$ArManad'_'$zipade_filer -Append}
if($RensaEllerZipa -eq 0){"Plats kvar på E:\ " + $vDisk +" GB" | Out-File $LoggKatalog\$ArManad'_'$zipade_filer -Append}

if($RensaEllerZipa -eq 1) {"Antal filer som deletats: " + $CountFiles | Out-File $LoggKatalog\$ArManad'_'$deletade_filer -Append}
if($RensaEllerZipa -eq 1){"Plats kvar på E:\ " + $vDisk +" GB"| Out-File $LoggKatalog\$ArManad'_'$deletade_filer -Append}

####################################################################################################################
# Rensa kataloger
###################################################################################################################

#Ta fram kataloger att rensa även från underkataloger -Recurse. Sort-Object -Property $KatalogAttRensa.FullName. Beroende på om parameter för zip eller rensning är satt.
$oldKatalogs = if($RensaEllerZipa -eq 1){Get-ChildItem -Path $KatalogRensaZipa -Directory -Recurse} else {write-host "Kataloger skall inte deletas"}
#Sorterar efter folder djup. *Används i foreach-loop istället.
#$oldKatalogs | Select-Object FullName | Sort-Object -Descending FullName
#$oldKatalogs | Select-Object FullName, @{Name="FolderDepth";Expression={$_.DirectoryName.Split('\').Count}} | Sort-Object -Descending FolderDepth,FullName
if($Visa) {write-host "Kataloger att ev rensa: $oldKatalogs"}

#Sätta om parameter för skrivning till fil iom nu kollar vi på kataloger
$DagSkrivit=1
#Skriva dag i logg-filen för rensade Kataloger.
if($DagSkrivit){Get-Date -Format "yyyy-MM-dd HH:mm" | Out-File $LoggKatalog\$ArManad'_'$deletade_kataloger -Append}
#Bara skriva dag i filen en gång.
$DagSkrivit=0

#loopa igenom katalogl listan och se vilka kataloger som skall tas bort = ädre än antalet dagar enl inparametern.
foreach ($oldkat in ($oldKatalogs | Sort-Object -Descending FullName) ) {

    #test om det är en katalog
    if($Visa) {write-host "Katalog som kollas: $oldkat"}
    # ev använda denna: $isFil =  (!$oldFile.PSIsContainer)
    $isFolder = Test-Path $oldkat.FullName -PathType Container
    if($Visa) {write-host "Var det en katalog: $isFolder"}

    #Räkna antalet filer som ev finns kvar i katalogen som deletas + ev subkataloger.
    $AntFiler = (Get-ChildItem $oldKat.FullName -File -Recurse).Count  
    if($Visa) {write-host "Frågan är om jag räknar: $AntFiler"}

    #Koll om det är en katalog, koll om det finns filer kvar: $AntFiler från ovan, koll om katalogen är tillräckligt gammal för rensning.
    #iom borde bara vara kataloger.
    if ( ($isFolder -eq $True) -and ($oldkat.LastWriteTime -lt (Get-Date).AddDays(-$DagarAttSpara)) -and ($AntFiler -eq 0) ) {

                if($Visa) {write-host "Katalog som skall deletas: $oldkat"}
                Remove-Item $oldkat.FullName -Force -Recurse #-and ($AntFiler -eq 0) 
                
                #Räkna antalet filer som zip:as och sätta att filer har zip:as
                $CountFolder +=1
                $CountKatalog = $True

                $oldkat.FullName | Out-File $LoggKatalog\$ArManad'_'$deletade_kataloger -Append
    } 
    else {

        if($Visa) {write-host "Katalog var inte tillräckligt gammal för att deletas eller innehåller filer i katalog/subkatalog: $oldkat"}
    }

   #Bara skriva dag i filen en gång.
   $DagSkrivit=0
}
if($CountKatalog) {"Antal kataloger som deletats: " + $CountFolder | Out-File $LoggKatalog\$ArManad'_'$deletade_kataloger -Append} else {"Antal kataloger som deletats: 0" | Out-File $LoggKatalog\$ArManad'_'$deletade_kataloger -Append}