[问题求助] PowerShell有条件地给某个文件夹中所有子文件夹分配指定数量的文件夹

5i365

有两个主文件夹A和B,  要把A中的子文件夹分配【移动】到B的子文件夹中,
在分配到B下的每个子文件夹中之前,  要先检查该子文件夹的情况:  当其下只有1个OK文件夹, 才分配,【有文件不受影响】
A文件夹中的子文件夹名字如下
1 中
2 国
11 美
12 国
22 人
101 日
102 本
按子文件夹名字前的数字先后顺序分配【参考代码 Get-ChildItem “.\A”-Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { $_.FullName }】, 分配2个子文件夹到B下的符合上面要求的子文件夹中
分配中可能遇到的情况:
A下的子文件夹分完了: 则回显文件夹已经分完
A下的文件夹数量是奇数, 这样在给B下的某子文件夹分配过去时, 就只能分配一个过去了，此时不报错
可能因为A下没有足够的子文件夹，B下有些符合要求的子文件夹，仍然分不到文件夹，此时不报错

测试文件夹示例：
https://wss1.cn/f/7ar6432xz4e 复制链接到浏览器打开

5i365

感觉这个示例太综合了，考查的点有多

qixiaobin0715

回复 1# 5i365
这个用批处理应当也能解决。
但没有理解第一种情况的意思。
感觉第一种情况应当包含第2、3中情况。

5i365

回复 3# qixiaobin0715


   感谢指正， 上面描述有点笼统， 第一种情况有包含第2、3中的情况。

pwershell跨平台真是牛X了， 一份代码两个系统运行， 确实不错

貌似，只限字符中串和文件处理之类的代码， 有些win专用的代码还是不能跨平台的

我用的一个音乐软件， 在win和mac都能安装， 刚用苹果系统， 不太熟悉， 所以考虑用ps， 一举多得

idwma

Get-ChildItem “.\A”-Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a+=$_.FullName }
dir .\b|?{$_.PSIsContainer}|%{if(test-path $_.fullname\ok){copy $a[$i++] $_.fullname -rec; copy $a[$i++] $_.fullname -rec}}
if($a[$i] -eq $null){"分完"}
复制代码

5i365

回复 5# idwma


  Test-Path : A positional parameter cannot be found that accepts argument '\ok'.
At line:2 char:34
+ dir .\b|?{$_.PSIsContainer}|%{if(test-path $_.fullname\ok){copy $a[$i ...
+                                  ~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidArgument: ( [Test-Path], ParameterBindingException
    + FullyQualifiedErrorId : PositionalParameterNotFound,Microsoft.PowerShell.Commands.TestPathCommand

Test-Path : A positional parameter cannot be found that accepts argument '\ok'.
At line:2 char:34
+ dir .\b|?{$_.PSIsContainer}|%{if(test-path $_.fullname\ok){copy $a[$i ...
+                                  ~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidArgument: (:) [Test-Path], ParameterBindingException
    + FullyQualifiedErrorId : PositionalParameterNotFound,Microsoft.PowerShell.Commands.TestPathCommand

Test-Path : A positional parameter cannot be found that accepts argument '\ok'.
At line:2 char:34
+ dir .\b|?{$_.PSIsContainer}|%{if(test-path $_.fullname\ok){copy $a[$i ...
+                                  ~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidArgument: (:) [Test-Path], ParameterBindingException
    + FullyQualifiedErrorId : PositionalParameterNotFound,Microsoft.PowerShell.Commands.TestPathCommand

Index operation failed; the array index evaluated to null.
At line:3 char:4
+ if($a[$i] -eq $null){"分完"}
+    ~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : NullArrayIndex

请按任意键继续. . .

idwma

回复 6# 5i365


    忘了ok路径字符拼接没处理

test-path "$($_.fullname+'\ok')"
复制代码

5i365

回复 7# idwma


遇到两个情况:
1.我把copy改成了move 就报错了
2.从哪里可以设置每次分配的文件夹的数量, 例如,从A文件夹每次移动N个子文件夹到B下的某个符合要求的子文件夹中, 现在是每次移动两个

#&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a+=$_.FullName }
dir .\b|?{$_.PSIsContainer}|%{if(test-path "$($_.fullname+'\ok')"){move $a[$i++] $_.fullname -rec; move $a[$i++] $_.fullname -rec}}
if($a[$i] -eq $null){"分完"}

idwma

回复 8# 5i365

#&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
$k=2
Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a+=$_.FullName }
dir .\b|?{$_.PSIsContainer}|%{if(test-path "$($_.fullname+'\ok')"){while($j++ -le $k){move $a[$i++] $_.fullname}}
if($a[$i] -eq $null){"分完"}
复制代码

5i365

回复 9# idwma


    Invoke-Expression : At line:3 char:30
+ dir .\b|?{$_.PSIsContainer}|%{if(test-path "$($_.fullname+'\ok')"){wh ...
+                              ~
Missing closing '}' in statement block or type definition.
At line:1 char:98
+ ... 歌曲文件夹 2.bat' | Select-Object -Skip 1 | Out-String | Invoke-Expression
+                                                         ~~~~~~~~~~~~~~~~~
    + CategoryInfo          : ParserError: ( [Invoke-Expression], ParseException
    + FullyQualifiedErrorId : MissingEndCurlyBrace,Microsoft.PowerShell.Commands.InvokeExpressionCommand

请按任意键继续. . .

5i365

回复 9# idwma


   好像丢} 了,改成下面能执行了,但是B下的第一个子文件夹分配了, 其它的没有分配

#&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
$k = 2
Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a += $_.FullName }
dir .\b | ?{ $_.PSIsContainer } | %{
	if (test-path "$($_.fullname + '\ok')") { while ($j++ -le $k) { move $a[$i++] $_.fullname } }
	if ($a[$i] -eq $null) { "分完" }
}
复制代码

idwma

回复 11# 5i365

#&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
$k = 2
Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a += $_.FullName }
dir .\b | ?{ $_.PSIsContainer } | %{
	if (test-path "$($_.fullname + '\ok')") { while ($j++ -le $k) { move $a[$i++] $_.fullname } }
$j=$null 
	if ($a[$i] -eq $null) { "分完" }
}
复制代码

5i365

回复 12# idwma


    刚看到, 现在双击批处理后, 成功移动了文件夹, 但是会报下面的错, 另外, $k=2 每次移动的文件夹数量却是3

Move-Item : Cannot bind argument to parameter 'Path' because it is null.
At line:4 char:71
+ ... ($_.fullname + '\ok')") { while ($j++ -le $k) { move $a[$i++] $_.full ...
+                                                          ~~~~~~~~
    + CategoryInfo          : InvalidData: ( [Move-Item], ParameterBindingValidationException
    + FullyQualifiedErrorId : ParameterArgumentValidationErrorNullNotAllowed,Microsoft.PowerShell.Commands.MoveItemCom
   mand

Move-Item : Cannot bind argument to parameter 'Path' because it is null.
At line:4 char:71
+ ... ($_.fullname + '\ok')") { while ($j++ -le $k) { move $a[$i++] $_.full ...
+                                                          ~~~~~~~~
    + CategoryInfo          : InvalidData: (:) [Move-Item], ParameterBindingValidationException
    + FullyQualifiedErrorId : ParameterArgumentValidationErrorNullNotAllowed,Microsoft.PowerShell.Commands.MoveItemCom
   mand

分完
请按任意键继续. . .

qixiaobin0715

回复 1# 5i365
来个纯批的吧：

@echo off
set n=10000
setlocal enabledelayedexpansion
for /f "tokens=1*" %%i in ('dir /b /ad A') do (
    set /a n+=%%i
    set "_!n!=%%i %%j"
    set n=10000
)
for /f "delims=" %%k in ('dir /b /ad B') do (
    if exist "B\%%k\ok" (
        pushd "B\%%k"
        dir /b /ad|find /v "ok">nul||(
            set /a m+=1
            set "#!m!=B\%%k"
        )
        popd
    )
)
for /f "tokens=1* delims==" %%a in ('set _') do (
    set str=%%b
    set /a x+=1
    set /a "y=(x+1)/2"
    for /f "delims=" %%c in ("#!y!") do if exist "!%%c!" move "A\%%b" "!%%c!\"
)>nul
if not exist "A\!str!" echo,文件夹已经分完！！！
pause
复制代码

idwma

回复 13# 5i365

#&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
$k = 2
Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a += $_.FullName }
dir .\b | ?{ $_.PSIsContainer } | %{
	if (test-path "$($_.fullname + '\ok')") { while ($j++ -lt $k) { if ($a[$i] -ne $null){move $a[$i++] $_.fullname} } }
$j=$null 
}
if ($a[++$i] -eq $null) { "分完" }
复制代码