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

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

  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 后便可对子目录里的文件进行处理,但是在处理完后会将创建的文件夹移动出来,请问如何解决? 使其子文件夹里处理后的文件夹不被移动出来?
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

本帖最后由 aloha20200628 于 2025-3-16 15:50 编辑

回复 1# a6236130

用 for %%F in (*) do ... 句式就可能出现这类问题,改用以下代码试试...
  1. @echo off &for /f "delims=" %%F in ('dir /b/s/a-d') do if /i "%~f0" neq "%%F" (
  2.    set "nF=%%~nF" &setlocal enabledelayedexpansion &md "!nF:~0,3!" 2>nul
  3.    move /y "%%F" "!nF:~0,3!\" &endlocal)
  4. pause&exit/b
复制代码

TOP

回复 2# aloha20200628


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

TOP

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

TOP

本帖最后由 aloha20200628 于 2025-3-16 19:36 编辑

回复 3# a6236130

试试以下代码, 猜测楼主想要这个效果吧...
  1. @echo off &for /f "delims=" %%F in ('dir /b/s/a-d') do if /i "%~f0" neq "%%F" (
  2.     set "nF=%%~nF" &setlocal enabledelayedexpansion &md "%%~dpF!nF:~0,3!" 2>nul
  3.     move /y "%%F" "%%~dpF!nF:~0,3!\" &endlocal)
  4. pause&exit/b
复制代码
1

评分人数

TOP

回复 5# aloha20200628


    感谢大哥,是我要的效果!

TOP

返回列表