[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set n=0
  4. for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
  5.     set /a n+=1
  6.     set "_!n!=%%a"
  7. )
  8. set FolderCount=1000
  9. set "var=1 2 3 4 5 6 7 8 9"
  10. for %%a in (!var!) do (
  11.     set var1=!var:%%a=!
  12.     for %%b in (!var1!) do (
  13.         set var2=!var1:%%b=!
  14.         for %%c in (!var2!) do (
  15.             set var3=!var2:%%c=!
  16.             for %%d in (!var3!) do (
  17.                 set var4=!var3:%%d=!
  18.                 for %%e in (!var4!) do (
  19.                     set var5=!var4:%%e=!
  20.                     for %%f in (!var5!) do (
  21.                         set var6=!var5:%%f=!
  22.                         for %%g in (!var6!) do (
  23.                             if %%a lss %%b (
  24.                             if %%b lss %%c (
  25.                             if %%c lss %%d (
  26.                             if %%d lss %%e (
  27.                             if %%e lss %%f (
  28.                             if %%f lss %%g (
  29.                                 set /a FolderCount+=1
  30.                                 set FolderName=!FolderCount:~-3!
  31.                                 echo 创建文件夹:!FolderName!
  32.                                 if not exist !FolderName! (
  33.                                     md !FolderName!
  34.                                 )
  35.                                 echo 复制文件:!_%%a! !_%%b! !_%%c! !_%%d! !_%%e! !_%%f! !_%%g!
  36.                                 for %%z in ("!_%%a!" "!_%%b!" "!_%%c!" "!_%%d!" "!_%%e!" "!_%%f!" "!_%%g!") do (
  37.                                     copy /y "%%z" !FolderName!\
  38.                                 )
  39.                                 echo 正在计算下一个组合...
  40.                             ))))))
  41.                         )
  42.                     )
  43.                 )
  44.             )
  45.         )
  46.     )
  47. )
复制代码
1

评分人数

我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表