[Iska]

На PowerShell:

Скрытый текст

Код:

$sSourceFolder = 'C:\Мои проекты\0140'

if(Test-Path -LiteralPath $sSourceFolder -PathType Container) {
    Get-ChildItem -LiteralPath $sSourceFolder -Recurse -Directory |` 
        ForEach-Object -Process {
            if($_.Name -match "^(\d{4}|\d{4}\.\d{2}|\d{4}\.\d{2}\.\d{2}) - .+$") {
                $sDate = $matches[1]
                        
                if($sDate.Length -eq 4) {
                    $dtDate = [System.DateTime]::ParseExact($sDate, "yyyy", $null)
                } elseif($sDate.Length -eq 7) {
                    $dtDate = [System.DateTime]::ParseExact($sDate, "yyyy.MM", $null)
                } else {
                    $dtDate = [System.DateTime]::ParseExact($sDate, "yyyy.MM.dd", $null)
                }

                $_.CreationTime = $dtDate
            }
        }
} else {
    Write-Host "Can't find source folder [$sSourceFolder]." -ForegroundColor Red
}