批处理怎样判断文件夹内2个文件，如果只有一个A或B则删除文件夹，保留文件

lt6657

请教高手！
问题：
1、将相同名文件导入同名文件夹，并保留不同名文件；


2、判断文件夹内多个文件（jpg和xlsx），如果只有一个A或B则删除文件夹，保留文件。

回家路上

路过，就想问一下，生成那么的文件的测试脚本是你自己写的吗？O(∩_∩)O！？

CrLf

回复 2# 回家路上


    我也好奇这个问题

回家路上

写一下吧

1. @echo off & setlocal enabledelayedexpansion
   
2. set names=赵,钱,孙,李
   
3. set testDir=%~dp0$test$
   
4. 
   
5. rd /s /q "%testDir%" 2>nul& md "%testDir%">nul
   
6. pushd %testDir%
   
7. for %%n in (%names%) do (
   
8.         rem for /l %%i in (10=-1) do md "%%n%%i" 2>nul
   
9.         set /a rand=!random!%%15
   
10.         for /l %%i in (!rand!=-1) do cd.>"%%n%%i.jpg"
    
11.         set /a rand=!random!%%15
    
12.         for /l %%i in (!rand!=-1) do cd.>"%%n%%i.xlsx"
    
13. )
    
14. popd
    
15. 
    
16. pause & exit /b

复制代码

1. @echo off & setlocal enabledelayedexpansion
   
2. :: 姑且认为如果文件成对了，就算文件夹没有，就创建一个，然后把一对放进去
   
3. 
   
4. set testDir=%~dp0$test$
   
5. 
   
6. pushd "%testDir%"
   
7. for /f "delims=" %%i in ('dir /a-d /b') do (
   
8.         if "!p!"=="%%~ni" (
   
9.                 if not exist "%%~ni" md "%%~ni" >nul
   
10.                 move /y "!pre!" "%%~ni"
    
11.                 move /y "%%i" ""%%~ni"
    
12.         )
    
13.         set pre=%%i
    
14.         set p=%%~ni
    
15. )
    
16. popd
    
17. 
    
18. pause & exit /b

复制代码

lt6657

for /f "delims=" %%a in ('dir /o-n /b /ad') do move "%%a*.jpg" "%%a\"
这个可以实现，但不完善。

原来只是需要导入图片和excel，但出现了问题！
这个
@echo off
for /f "delims=" %%i in ('dir /b /a-d *.jpg *.xls *') do (
    if exist "%%i" (
        md "%%~ni\"
        move /y "*%%~ni*" "%%~ni\"
    )
)

lt6657

非常感谢你的支持！

我测试发现的问题：

你的代码还能麻烦修改吗？

回家路上

呵呵，虽然你的截图很霸气，但是我仍然不明确你的需求。

建议，以后能用文字描述的不要上图片，图片占空间大，废论坛资源。更何况不配文字说明的图片。
只好从上到下，加上你给出的脚本猜测了。

1. @echo off & setlocal enabledelayedexpansion
   
2. :: 姑且认为如果文件成对了，就算文件夹没有，就创建一个，然后把一对放进去
   
3. 
   
4. set testDir=%~dp0$test$
   
5. 
   
6. pushd "%testDir%"
   
7. ::-----------原有的脚本加上两个--------------------start
   
8. :: 将原有文件夹中所有文件移到根目录
   
9. for /f "delims=" %%i in ('dir /a-d /b /s') do  move /y "%%i" "%testDir%"
   
10. :: 删除文件夹
    
11. for /f "delims=" %%i in ('dir /ad /b') do  rd /q "%%i"
    
12. ::-----------原有的脚本加上两个--------------------end
    
13. :: 再创建文件夹成对儿的移进去
    
14. for /f "delims=" %%i in ('dir /a-d /b') do (
    
15.         if "!p!"=="%%~ni" (
    
16.                 if not exist "%%~ni" md "%%~ni" >nul
    
17.                 move /y "!pre!" "%%~ni"
    
18.                 move /y "%%i" ""%%~ni"
    
19.         )
    
20.         set pre=%%i
    
21.         set p=%%~ni
    
22. )
    
23. popd
    
24. 
    
25. pause & exit /b

复制代码