求助批處理將文件移動(dòng)進(jìn)以該文件名命名的文件夾里

@echo off
rem 根據(jù)文件名將文件移動(dòng)進(jìn)以該文件名命名的文件夾里
cd /d %~dp0
for /f delims= %%a in ('dir /a-d/b *F*.pdf') do (
if %%~nxa neq %~nx0 (
if not exist %%~na (md %%~na%%~na圖1)
echo;%%a --^> %%~na
move %%a %%~na%%~na圖1
)
)
pause
nclick="copycode($('code0'));">復(fù)制代碼

我是想截取“%%~na”前20位做為文件夾名，創(chuàng)建文件夾(上面的是沒(méi)有截取的)，并且將文件復(fù)制到里面去。這個(gè)%%~na字符的截取方式，不懂，還請(qǐng)幫幫忙，謝謝。不要用延時(shí)變量，不懂為什么用了后小量的使用起來(lái)沒(méi)有問(wèn)題，數(shù)量多了后總是在后面報(bào)錯(cuò)。