gci "$Pwd\A" -Directory|%{
	foreach ($Number in @($_.name.Split('_-'))) {
		$err=$null
		foreach ($i in ($Number.GetEnumerator())){
			if (![Char]::IsDigit("$i")){$err='yes'}
		}
		if (!$err){$Folder=$Number}
	}
	if([Io.Directory]::Exists("$Pwd\B\$Folder")){
		Get-Item "$($_.fullname)\*"|%{
			Copy $_.Fullname -Dest "$Pwd\B\$Folder\" -Recurse -Force
			if ($?){Write-host '复制文件：'$_.Fullname -fore Magenta}
		}
	}
}
复制代码

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell]
"ExecutionPolicy"="Bypass"
复制代码

$A文件夹=Read-host -Prompt "拖入 A 文件夹 并回车"
$B文件夹=Read-host -Prompt "拖入 B 文件夹 并回车"
gci "$A文件夹" -Directory|%{
	foreach ($Number in @($_.name.Split('_-'))) {
		$err=$null
		foreach ($i in ($Number.GetEnumerator())){
			if (![Char]::IsDigit("$i")){$err='yes'}
		}
		if (!$err){$Folder=$Number}
	}
	if([Io.Directory]::Exists("$B文件夹\$Folder")){
		Get-Item "$($_.fullname)\*"|%{
			Copy $_.Fullname -Dest "$B文件夹\$Folder\" -Recurse -Force
			if ($?){Write-host '复制文件：'$_.Fullname -fore Magenta}
		}
	}
}
pause
复制代码