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

[文件操作] 批处理归类文件后后缀名丢失

批量归类文件
根据指定字段长度归类文件,归类后删除归类依据。
move "%~1" "%Str:~1,4%\%Str:~4%"
我加了标红部分,运行后文件的后缀名没了。求大神指点.....(具体代码)
  1. @echo off
  2. for %%a in (*) do call :MvFile "%%~a"
  3. pause
  4. exit
  5. :MvFile
  6. if "%~f1"=="%~f0" goto :eof
  7. set "Str=%~n1"
  8. if not exist "%Str:~1,4%" md "%Str:~1,4%"
  9. move "%~1" "%Str:~1,4%\%Str:~4%"
  10. goto :eof
复制代码

把你的第11行改成这样:
move "%~1" "%Str:~1,4%\%Str:~4%%~x1"

或者这样:
move "%~1" "%Str:~1,4%\"

看看哪个是你需要的结果
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 zaqmlp 于 2019-4-16 15:44 编辑

set "Str=%~nx1"
  1. @echo off
  2. set info=互助互利,支付宝扫码头像,感谢赞助
  3. rem 有问题,可加QQ956535081及时沟通
  4. title %info%
  5. start mshta VBScript:Execute("msgbox(""%info%""):close")
  6. cd /d "%~dp0"
  7. for /f "delims=" %%a in ('dir /a-d/b^|find /v "%~nx0"') do (
  8.     set "file=%%a"
  9.     set "name=%%~nxa"
  10.     setlocal enabledelayedexpansion
  11.     if not exist "!name:~1,4!" md "!name:~1,4!"
  12.     echo;"!file!" --^> "!name:~1,4!\!name:~4!"
  13.     move /y "!file!" "!name:~1,4!\!name:~4!"
  14.     endlocal
  15. )
  16. pause
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表