[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 5i365 于 2022-1-7 09:23 编辑

有两个主文件夹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 复制链接到浏览器打开

回复 22# 5i365
  1. #&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
  2. $k = 2
  3. Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a += $_.FullName }
  4. dir .\b | ?{ $_.PSIsContainer } | %{
  5. 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} } }
  6. $j=$null
  7. }
  8. if ($a[++$i] -eq $null) { "分完" }
复制代码
1

评分人数

    • 5i365: 感谢帮忙! 细心!耐心!技术 + 1

TOP

回复 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

请按任意键继续. . .

TOP

本帖最后由 idwma 于 2022-1-11 18:17 编辑

回复 20# 5i365


    这次测了是可以的
怕不是又是powershell版本问题,2.0dir只有一个时count的数不是1
  1. #&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
  2. $k = 2
  3. Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a += $_.FullName }
  4. dir .\b | ?{ $_.PSIsContainer } | %{
  5. 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} } }
  6. $j=$null
  7. }
  8. if ($a[++$i] -eq $null) { "分完" }
复制代码

TOP

回复 19# idwma


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

TOP

回复 18# 5i365
  1. #&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
  2. $k = 2
  3. Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a += $_.FullName }
  4. dir .\b | ?{ $_.PSIsContainer } | %{
  5. 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} } }
  6. $j=$null
  7. }
  8. if ($a[++$i] -eq $null) { "分完" }
复制代码

TOP

回复 17# idwma


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

TOP

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

TOP

回复 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

请按任意键继续. . .

TOP

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

TOP

回复 1# 5i365
来个纯批的吧:
  1. @echo off
  2. set n=10000
  3. setlocal enabledelayedexpansion
  4. for /f "tokens=1*" %%i in ('dir /b /ad A') do (
  5.     set /a n+=%%i
  6.     set "_!n!=%%i %%j"
  7.     set n=10000
  8. )
  9. for /f "delims=" %%k in ('dir /b /ad B') do (
  10.     if exist "B\%%k\ok" (
  11.         pushd "B\%%k"
  12.         dir /b /ad|find /v "ok">nul||(
  13.             set /a m+=1
  14.             set "#!m!=B\%%k"
  15.         )
  16.         popd
  17.     )
  18. )
  19. for /f "tokens=1* delims==" %%a in ('set _') do (
  20.     set str=%%b
  21.     set /a x+=1
  22.     set /a "y=(x+1)/2"
  23.     for /f "delims=" %%c in ("#!y!") do if exist "!%%c!" move "A\%%b" "!%%c!\"
  24. )>nul
  25. if not exist "A\!str!" echo,文件夹已经分完!!!
  26. pause
复制代码
1

评分人数

    • 5i365: 感谢, 能实现效果技术 + 1

TOP

回复 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

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

TOP

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

TOP

回复 9# idwma


   好像丢} 了,改成下面能执行了,但是B下的第一个子文件夹分配了, 其它的没有分配
  1. #&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &pause&exit
  2. $k = 2
  3. Get-ChildItem ".\A" -Directory | Sort-Object { [int]($_.Name -split '\s+')[0] } | foreach-Object { [array]$a += $_.FullName }
  4. dir .\b | ?{ $_.PSIsContainer } | %{
  5. if (test-path "$($_.fullname + '\ok')") { while ($j++ -le $k) { move $a[$i++] $_.fullname } }
  6. if ($a[$i] -eq $null) { "分完" }
  7. }
复制代码

TOP

回复 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

请按任意键继续. . .

TOP

返回列表