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

yzl

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

went

1. @echo off
   
2. set "srcFolder=G:\Desktop\新建文件夹"
   
3. set "decFolder=G:\Desktop\doc"
   
4. for %%i in ("%srcFolder%\*.doc") do (
   
5.         for /f "delims=_" %%a in ("%%~ni") do (
   
6.                 mkdir "%decFolder%\%%a" >nul 2>nul
   
7.                 move /y "%%i" "%decFolder%\%%a"
   
8.         )
   
9. )
   
10. pause&exit

复制代码

Batcher

回复 1# yzl

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. cd /d "%~dp0"
   
4. for %%i in ("*.doc") do (
   
5.     set "file=%%i"
   
6.     set "folder=!file:~0,19!"
   
7.     md "!folder!" 2>nul
   
8.     move /y "%%i" "!folder!"
   
9. )

复制代码

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