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

a6236130

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

@echo off

for %%a in (*) do call :MvFile "%%~a"
pause
exit

:MvFile
 if "%~f1"=="%~f0" goto :eof
 set "Str=%~n1"
 if not exist "%Str:~1,4%" md "%Str:~1,4%"
 move "%~1" "%Str:~1,4%\%Str:~4%"
goto :eof 
复制代码