65 lines
2.3 KiB
PowerShell
65 lines
2.3 KiB
PowerShell
if($args[0] -eq $null)
|
|
{
|
|
$pnpCiD = Read-Host "Votre Client ID (ex: fa7800b5-0298-4205-a369-ffb976de3058) "
|
|
$SiteURL = Read-Host "Adresse du site (ex: https://client.sharepoint.com/sites/COMPTA) "
|
|
$ListName = Read-Host "Nom de la bibliotheque (ex: Documents) "
|
|
$VersionsToKeep = Read-Host "Nombre de versions à garder "
|
|
}
|
|
else
|
|
{
|
|
$pnpCiD=$args[0]
|
|
$SiteURL=$args[1]
|
|
$ListName=$args[2]
|
|
$VersionsToKeep=$args[3]
|
|
}
|
|
|
|
Connect-PnPOnline -Url $SiteURL -Interactive -ClientId $pnpCiD
|
|
|
|
#Get the Document Library
|
|
$List = Get-PnPList -Identity $ListName
|
|
|
|
#Get the Context
|
|
$Ctx= Get-PnPContext
|
|
|
|
$global:counter=0
|
|
#Get All Items from the List - Get 'Files
|
|
$ListItems = Get-PnPListItem -List $ListName -Fields FileLeafRef -PageSize 2000 -ScriptBlock { Param($items) $global:counter += $items.Count; Write-Progress `
|
|
-PercentComplete ($global:Counter / ($List.ItemCount) * 100) -Activity "Getting Files of '$($List.Title)'" `
|
|
-Status "Processing Files $global:Counter of $($List.ItemCount)";} | Where {($_.FileSystemObjectType -eq "File")}
|
|
Write-Progress -Activity "Completed Retrieving Files!" -Completed
|
|
|
|
$TotalFiles = $ListItems.count
|
|
$Counter = 1
|
|
ForEach ($Item in $ListItems)
|
|
{
|
|
#Get File Versions
|
|
$File = $Item.File
|
|
$Versions = $File.Versions
|
|
$Ctx.Load($File)
|
|
$Ctx.Load($Versions)
|
|
$Ctx.ExecuteQuery()
|
|
|
|
Write-host -f Yellow "Scanning File ($Counter of $TotalFiles):"$Item.FieldValues.FileRef
|
|
$VersionsCount = $Versions.Count
|
|
$VersionsToDelete = $VersionsCount - $VersionsToKeep
|
|
If($VersionsToDelete -gt 0)
|
|
{
|
|
write-host -f Cyan "`t Total Number of Versions of the File:" $VersionsCount
|
|
$VersionCounter= 0
|
|
#Delete versions
|
|
For($i=0; $i -lt $VersionsToDelete; $i++)
|
|
{
|
|
If($Versions[$VersionCounter].IsCurrentVersion)
|
|
{
|
|
$VersionCounter++
|
|
Write-host -f Magenta "`t`t Retaining Current Major Version:" $Versions[$VersionCounter].VersionLabel
|
|
Continue
|
|
}
|
|
Write-host -f Cyan "`t Deleting Version:" $Versions[$VersionCounter].VersionLabel
|
|
$Versions[$VersionCounter].DeleteObject()
|
|
}
|
|
$Ctx.ExecuteQuery()
|
|
Write-Host -f Green "`t Version History is cleaned for the File:"$File.Name
|
|
}
|
|
$Counter++
|
|
} |