编写以下代码,将文件移动到驱动器上的特定Year-Month文件夹。但是,我还想在操作结束时压缩我写的文件夹。我该怎么做?
# Get the files which should be moved, without folders
$files = Get-ChildItem 'D:\NTPolling\InBound\Archive' -Recurse | where {!$_.PsIsContainer}
# List Files which will be moved
# $files
# Target Filder where files should be moved to. The script will automatically create a folder for the year and month.
$targetPath = 'D:\SalesXMLBackup'
foreach ($file in $files)
{
# Get year and Month of the file
# I used LastWriteTime since this are synced files and the creation day will be the date when it was synced
$year = $file.LastWriteTime.Year.ToString()
$month = $file.LastWriteTime.Month.ToString()
# Out FileName, year and month
$file.Name
$year
$month
# Set Directory Path
$Directory = $targetPath + "\" + $year + "\" + $month
# Create directory if it doesn't exsist
if (!(Test-Path $Directory))
{
New-Item $directory -type directory
}
# Move File to new location
$file | Move-Item -Destination $Directory
}
目的是将这些文件移动到一个文件夹中并将其压缩并存档以供以后使用。因此,我将每月安排一次,以便运行上个月
答案 0 :(得分:1)
如果您正在使用PowerShell v5,那么您可以使用Compress-Archive
功能:
Get-ChildItem $targetPath | Compress-Archive -DestinationPath "$targetPath.zip"
这会将D:\SalesXMLBackup
压缩为D:\SalesXMLBackup.zip
答案 1 :(得分:0)
这是我用来解压缩目录中所有文件的代码。你只需要修改它就可以压缩而不是解压缩。
$ZipReNameExtract = Start-Job {
#Ingoring the directories that a search is not require to check
$ignore = @("Tests\","Old_Tests\")
#Don't include "\" at the end of $loc - it will stop the script from matching first-level subfolders
$Files=gci $NewSource -Fecurse | Where {$_.Extension -Match "zip" -And $_.FullName -Notlike $Ignore}
Foreach ($File in $Files) {
$NewSource = $File.FullName
#Join-Path is a standard Powershell cmdLet
$Destination = Join-Path (Split-Path -parent $File.FullName) $File.BaseName
Write-Host -Fore Green $Destination
#Start-Process needs the path to the exe and then the arguments passed seperately.
Start-Process -FilePath "C:\Program Files\7-Zip\7z.exe" -ArgumentList "x -y -o $NewSource $Destination" -Wait
}
}
Wait-Job $ZipReNameExtract
Receive-Job $ZipReNameExtract
如果有帮助,请告诉我。
UnderDog ......