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

@set @n=0/*&echo off
dir /a-d/s/b *.XLS *.JPG *.DXF|cscript -nologo -E:jscript "%~f0"
pause&exit */
  
var fso=new ActiveXObject('scripting.FileSystemObject');
   
while(!WSH.StdIn.AtEndOfStream)
{
    path=WSH.StdIn.ReadLine();
    var count=0
    path.replace(/\\/g, function(){count++;});
    if(count<5) continue;
  
    var NewPath=path.replace(/^(\w:\\[^\\]*).*\\([^\\]*)\\[^\\]*$/g,'$1\\$2\\')
    if(!fso.FolderExists(NewPath)) fso.CreateFolder(NewPath);
    fso.MoveFile(path, NewPath);
}
复制代码