yhcfsr

@echo off
for /f "delims=" %%a in ('type list.txt') do (
	if not exist "%%a" md "%%a"
	for /f "delims=" %%b in ('dir /a-d/s/b^|findstr /i "%%a"') do if not "%%~dpb"=="%%~fa\" move /y "%%b" "%%a"
)
复制代码

yhcfsr

回复 3# fashionben


    2楼已修正。
    这是根据列表建立文件夹，每建一个文件夹就扫描全部文件，将符合要求文件移入新文件夹。
    还有一种方法是，扫描全部文件，将文件与列表进行比对，若文件与列表关键字匹配成功，建立文件夹，再将该文件移入。这种方法只会扫描一次文件，速度应该比上面的方法要快。

yhcfsr

回复 8# fashionben

@echo off
for /f "delims=" %%a in ('dir /a-d/s/b') do (
	set "var=%%a"
	for /f %%b in (list.txt) do (
		setlocal enabledelayedexpansion
		if not "!var:%%b=!"=="!var!" (
			if not exist "%%b" md "%%b"
			move /y "%%a" "%%b"
		)
		endlocal
	)
)
复制代码