找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 21890|回复: 2

[文件操作] 需要批量将五级文件夹(包含子文件夹和文件)移动到二级文件夹

[复制链接]
发表于 2019-1-13 12:18:44 | 显示全部楼层 |阅读模式
如图所示,请高手帮忙
发表于 2019-1-13 12:31:23 | 显示全部楼层
好吧.刚改的.如果有问题,看我签名加好友沟通.
  1. @set @n=0/*&echo off
  2. dir /a-d/s/b *.XLS *.JPG *.DXF|cscript -nologo -E:jscript "%~f0"
  3. pause&exit */
  4.   
  5. var fso=new ActiveXObject('scripting.FileSystemObject');
  6.    
  7. while(!WSH.StdIn.AtEndOfStream)
  8. {
  9.     path=WSH.StdIn.ReadLine();
  10.     var count=0
  11.     path.replace(/\\/g, function(){count++;});
  12.     if(count<5) continue;
  13.   
  14.     var NewPath=path.replace(/^(\w:\\[^\\]*).*\\([^\\]*)\\[^\\]*$/g,'$1\\$2\\')
  15.     if(!fso.FolderExists(NewPath)) fso.CreateFolder(NewPath);
  16.     fso.MoveFile(path, NewPath);
  17. }
复制代码
 楼主| 发表于 2019-1-13 13:08:45 | 显示全部楼层
回复 2# yhcfsr


    很有缘啊,百度提问你回答了,没想到这里还能遇到,感谢你的帮助
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-21 03:28 , Processed in 0.029602 second(s), 17 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表