批处理归类文件后后缀名丢失

a6236130

批量归类文件
根据指定字段长度归类文件，归类后删除归类依据。
move "%~1" "%Str:~1,4%\%Str:~4%"
我加了标红部分，运行后文件的后缀名没了。求大神指点.....(具体代码)

1. @echo off
   
2. 
   
3. for %%a in (*) do call :MvFile "%%~a"
   
4. pause
   
5. exit
   
6. 
   
7. :MvFile
   
8. if "%~f1"=="%~f0" goto :eof
   
9. set "Str=%~n1"
   
10. if not exist "%Str:~1,4%" md "%Str:~1,4%"
    
11. move "%~1" "%Str:~1,4%\%Str:~4%"
    
12. goto :eof

复制代码

zaqmlp

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

复制代码

Batcher

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

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

看看哪个是你需要的结果