[已解决]批处理归类文件会将文件夹移动出来的问题

a6236130

1. for /r %%a in (*) do call :MvFile "%%~a"
   
2. pause
   
3. exit
   
4. :MvFile
   
5. if "%~f1"=="%~f0" goto :eof
   
6. set "Str=%~n1"
   
7. if not exist "%Str:~0,3%" md "%Str:~0,3%"
   
8. move "%~1" "%Str:~0,3%"
   
9. goto :eof

复制代码

代码如上，for 加上 /r 后便可对子目录里的文件进行处理，但是在处理完后会将创建的文件夹移动出来，请问如何解决？ 使其子文件夹里处理后的文件夹不被移动出来？

aloha20200628

回复 1# a6236130

用 for %%F in (*) do ... 句式就可能出现这类问题，改用以下代码试试...

1. 
   
2. @echo off &for /f "delims=" %%F in ('dir /b/s/a-d') do if /i "%~f0" neq "%%F" (
   
3.    set "nF=%%~nF" &setlocal enabledelayedexpansion &md "!nF:~0,3!" 2>nul
   
4.    move /y "%%F" "!nF:~0,3!" &endlocal)
   
5. pause&exit/b
   

复制代码

a6236130

回复 2# aloha20200628


   我测试了一下 还是会被移动出来

smss

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /r %%a in (*) do (
   
4.     if not "%%a"=="%~f0" (
   
5.         set "file=%%a"
   
6.         set "folder=%%~dpa!file:~0,3!"
   
7.         if not exist "!folder!" md "!folder!"
   
8.         move "%%a" "!folder!" >nul
   
9.     )
   
10. )
    
11. pause

复制代码

aloha20200628

回复 3# a6236130

试试以下代码, 猜测楼主想要这个效果吧...

1. 
   
2. @echo off &for /f "delims=" %%F in ('dir /b/s/a-d') do if /i "%~f0" neq "%%F" (
   
3.     set "nF=%%~nF" &setlocal enabledelayedexpansion &md "%%~dpF!nF:~0,3!" 2>nul
   
4.     move /y "%%F" "%%~dpF!nF:~0,3!" &endlocal)
   
5. pause&exit/b
   

复制代码

a6236130

回复 5# aloha20200628


    感谢大哥，是我要的效果！