[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 批处理如何把多个文本按指定数量分到多个文件夹里?

比如现有10000个文本文件,想move到编号是1--1000的文件夹内,这些文件夹处于同个目录,每个文件夹放10个文本。
还请各位大神指教下
1

评分人数

文本名字也是有规律的,从1到10000

TOP

:)
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "delims=" %%i in ("%cd%") do set FolderPath=%%i
  3. for /f "delims=" %%a in ('dir /b /a:d') do (   
  4.    set FoderName=%%a
  5.    call :Loop !FoderName!
  6. )
  7. echo;&echo *** 脚本执行完毕 ***
  8. pause
  9. :Loop
  10. set ddq=0
  11. for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
  12.     set/a ddq+=1
  13.     set FileName=%%a
  14.     if !ddq! LEQ 10 (
  15.                       move %FolderPath%\!FileName!  %FolderPath%\%1\!FileName!
  16. ))
  17. goto :eof
复制代码
代码在WIN7下测试完成,请把脚本放在所需处理的目录下执行并保证所处理的文本文件和文件夹在同一个目录

TOP

文件名有规律的话 这样效率高点哦
  1. @echo off&setlocal enabledelayedexpansion
  2. set n=0
  3. for /l %%i in (0,10,9990) do (
  4.     set /a m=%%i,i=%%i/10+1,n+=10
  5.     md !i! 2>nul
  6.     if defined a (set "f=!m:~,-1!") else set "f=!m:~1!"
  7.     move !f!?.txt !i!\ >nul 2>nul
  8.     move !n!.txt !i!\ >nul 2>nul
  9.     set a=0
  10. )
  11. pause
复制代码

TOP

返回列表