[文件操作] 批处理按照文档的名字复制到相对应的文件夹

yzl

在一个文件夹内有多个word文档，如何将这些文档复制到另一个相对应的文件夹里面。
文件夹的名字是文档文件名的前19位

went

@echo off 
set "srcFolder=G:\Desktop\新建文件夹"
set "decFolder=G:\Desktop\doc"
for %%i in ("%srcFolder%\*.doc") do (
	for /f "delims=_" %%a in ("%%~ni") do (
		mkdir "%decFolder%\%%a" >nul 2>nul
		move /y "%%i" "%decFolder%\%%a"
	)
)
pause&exit
复制代码

Batcher

回复 1# yzl

@echo off
setlocal enabledelayedexpansion
cd /d "%~dp0"
for %%i in ("*.doc") do (
    set "file=%%i"
    set "folder=!file:~0,19!"
    md "!folder!" 2>nul
    move /y "%%i" "!folder!\"
)
复制代码

Fit

@echo off&setlocal enabledelayedexpansion
set "ccd=%cd%\A"
md A
set /p mmd="输入或拖拽word的文件夹！"
cd /d "%mmd%"
echo %cd%
for /f "tokens=*" %%i in ('dir /b *.doc *.docx') do (
        set "str=%%~ni"
        set str=!str:~0,19!
        if not exist "%ccd%\!str!" (md "%ccd%\!str!")
        copy "%%i" "%ccd%\!str!\"
)
pause