Создание ярлыков для папок из списка и перемещение ярлыков в заданную папку

$root = "C:\Temp"
$csv_file = "C:\Temp\numbers.csv"
$items = Import-Csv $csv_file | select -expand Number
 
cls
foreach ($folder in ls $root -dir -rec)
{
    foreach ($item in $items)
    {
        if ($folder.Name -like "*$item")
        {
            if (Test-Path ($lnk_path = "$root\$($folder.Name).lnk"))
            {
                "Ярлык $lnk_path уже создан!"
            }
            else
            {
                $shell = New-Object -ComObject WScript.Shell
                $lnk = $shell.CreateShortcut($lnk_path)
                $lnk.TargetPath = $folder.FullName
                $lnk.Save()
 
                "$lnk_path -> $($folder.FullName)"
            }
        }
    }
}

$lnkfolder = "c:\Shortcuts"

if (Test-Path ($lnk_path = "$lnkfolder\$($folder.Name).lnk"))

"^[\D]*$item"

"^\D*$item(\D+|$)"

$root = "C:\Temp"
$lnkfolder = "C:\Shortcuts"
$csv_file = "C:\Temp\Номера-19.csv"
 
$items = Import-Csv $csv_file -del ';'
$Properties = ($items[0] | Get-Member -MemberType Properties).Name
 
$Properties | %{
    if (!(Test-Path "$lnkfolder\$_")) {New-Item -Path $lnkfolder -Name $_ -ItemType directory}
}
 
cls
foreach ($folder in Get-ChildItem -Path $root -Directory -Recurse)
{
    foreach ($item in $items)
    {
        foreach ($prop in $Properties)
        {
            if ($item.$prop -and $folder.Name -match "^\D*$([regex]::Escape($item.$prop))(\D+|$)")
            {
                if (Test-Path ($lnk_path = "$lnkfolder\$prop\$($folder.Name).lnk"))
                {
                    "Ярлык $lnk_path уже создан!"
                }
                else
                {
                    $shell = New-Object -ComObject WScript.Shell
                    $lnk = $shell.CreateShortcut($lnk_path)
                    $lnk.TargetPath = $folder.FullName
                    $lnk.Save()
 
                    "$lnk_path -> $($folder.FullName)"
                }
            }
        }
    }
}