[文件操作] 批处理 相同名字前缀文件移动倒相同名字前缀得文件夹里

21克

相同名字前缀文件移动倒相同名字前缀得文件夹里
哪位大神帮帮忙啊

yhcfsr

@echo off
rem 设置源目录
set "ScDir=d:\temp"

cd /d "%ScDir%"
for /f "delims=" %%a in ('dir /a-d /b') do (
	set "f1=%%~na"
	setlocal enableDelayedExpansion
	set "f1=!f1:~0,1!"
	call :scan_dir "%ScDir%" "!f1!" scDir
	if not "!scDir!"=="" (move /y "%%a" "!scDir!" )>nul
	endlocal
)
pause&exit

:scan_dir dir str rdir
setlocal enableDelayedExpansion
set "scDir=%~1"
pushd "%scDir%"
for /f "delims=" %%a in ('dir /ad /b') do (
set "d1=%%a"&&set "d1=!d1:~0,1!"
if %~2==!d1! (popd&endlocal&set "%3=%%a"&goto:eof)
)
复制代码

21克

回复 3# flashercs
不行啊 没效果  你这个是BAT 代码吗

flashercs

for /d %%a in (*) do 2>nul,move "%%~na.*" "%%a" 
复制代码

21克

[attach]11022[/attach]