[问题求助] 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 复制链接到浏览器打开

idwma

回复 22# 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')) -and $(dir $_.fullname|%{$n++};$n;$n=$null) -lt 2) { while ($j++ -lt $k) { if ($a[$i++] -ne $null){move $a[$i-1] $_.fullname} } }
$j=$null 
}
if ($a[++$i] -eq $null) { "分完" }
复制代码

5i365

回复 21# idwma


    Invoke-Expression : At line:4 char:37
+     if ((test-path $_.fullname + '\ok')) -and $(dir $_.fullname|%{$n+ ...
+                                        ~
Missing statement block after if ( condition ).
At line:3 char:36
+ dir .\b | ?{ $_.PSIsContainer } | %{
+                                    ~
Missing closing '}' in statement block or type definition.
At line:4 char:88
+ ...  + '\ok')) -and $(dir $_.fullname|%{$n++};$n;$n=$null) -lt 2) { while ...
+                                                                 ~
Unexpected token ')' in expression or statement.
At line:6 char:1
+ }
+ ~
Unexpected token '}' in expression or statement.
At line:1 char:98
+ ... 歌曲文件夹 2.bat' | Select-Object -Skip 1 | Out-String | Invoke-Expression
+                                                         ~~~~~~~~~~~~~~~~~
    + CategoryInfo          : ParserError: ( [Invoke-Expression], ParseException
    + FullyQualifiedErrorId : MissingStatementBlock,Microsoft.PowerShell.Commands.InvokeExpressionCommand

请按任意键继续. . .

idwma

回复 20# 5i365


    这次测了是可以的
怕不是又是powershell版本问题,2.0dir只有一个时count的数不是1

#&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')) -and $(dir $_.fullname|%{$n++};$n;$n=$null) -lt 2) { while ($j++ -lt $k) { if ($a[$i++] -ne $null){move $a[$i-1] $_.fullname} } }
$j=$null 
}
if ($a[++$i] -eq $null) { "分完" }
复制代码

5i365

回复 19# idwma


    不报错, 也没有移动文件夹

idwma

回复 18# 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')) -and (dir $_.fullname).count -lt 1) { while ($j++ -lt $k) { if ($a[$i++] -ne $null){move $a[$i-1] $_.fullname} } }
$j=$null 
}
if ($a[++$i] -eq $null) { "分完" }
复制代码

5i365

回复 17# idwma


    可以分了, 但是新问题来了,  A里7个文件夹, B里有三个, 执行脚本后, B里每个文件夹分到了A里的两个文件夹, 但此时我再次执行脚本, 却又把A余下的1个分给了B里的第一个文件夹, 但, 此时并不满足条件, 因为它里面已经分到两个文件夹了, 并不是只有一个OK文件夹

idwma

回复 16# 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-1] $_.fullname} } }
$j=$null 
}
if ($a[++$i] -eq $null) { "分完" }
复制代码

5i365

回复 15# idwma


    Index operation failed; the array index evaluated to null.
At line:4 char:70
+ ... lname + '\ok')") { while ($j++ -lt $k) { if ($a[$i] -ne $null){move $ ...
+                                                  ~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: ( [], RuntimeException
    + FullyQualifiedErrorId : NullArrayIndex

Index operation failed; the array index evaluated to null.
At line:4 char:70
+ ... lname + '\ok')") { while ($j++ -lt $k) { if ($a[$i] -ne $null){move $ ...
+                                                  ~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : NullArrayIndex

Index operation failed; the array index evaluated to null.
At line:4 char:70
+ ... lname + '\ok')") { while ($j++ -lt $k) { if ($a[$i] -ne $null){move $ ...
+                                                  ~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : NullArrayIndex

Index operation failed; the array index evaluated to null.
At line:4 char:70
+ ... lname + '\ok')") { while ($j++ -lt $k) { if ($a[$i] -ne $null){move $ ...
+                                                  ~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : NullArrayIndex

Index operation failed; the array index evaluated to null.
At line:4 char:70
+ ... lname + '\ok')") { while ($j++ -lt $k) { if ($a[$i] -ne $null){move $ ...
+                                                  ~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : NullArrayIndex

Index operation failed; the array index evaluated to null.
At line:4 char:70
+ ... lname + '\ok')") { while ($j++ -lt $k) { if ($a[$i] -ne $null){move $ ...
+                                                  ~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : NullArrayIndex

请按任意键继续. . .

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) { "分完" }
复制代码

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
复制代码

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

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

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

回复 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) { "分完" }
}
复制代码

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

请按任意键继续. . .