• 2005年06月13日

    wsh改名脚本

    Tag:

    版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
    http://fireshort.blogbus.com/logs/1263543.html

    应minnie的要求而写 //Author:Ivan Chen

    //Author:Ivan Chen

    //Licensed under LGPL

     

    //Enumerate files under current dir and open one by one, read first line of each file.

    //if FT* string is found, change its filename to FT*.DAT

    var fso, ts, line;

    var ForReading = 1;

    fso = new ActiveXObject("Scripting.FileSystemObject");

    var objRootFolder = fso.GetFolder(".");

    fc = new Enumerator(objRootFolder.files);

     

    var srcFile,dstFile;

    var re;

    var count=0;

    for (; !fc.atEnd(); fc.moveNext())

    {

          srcFile = fc.item();

          if(srcFile.name.indexOf("rename.js")!=-1||srcFile.name.indexOf("rename.bat")!=-1)continue;

          ts = fso.OpenTextFile(srcFile, ForReading);

          line = ts.ReadLine();

          re = /FT\d+/;                   

      dstFile = line.match(re); 

          //WScript.Echo(dstFile);

          ts.Close();

          if(dstFile==null)continue;

          //WScript.Echo(srcFile);

          fso.MoveFile(srcFile,dstFile+".DAT");

          count++;

    }

    objRootFolder = null;

    objFS = null;

     

    WScript.Echo("Rename done! Total files: "+count);


    收藏到:Del.icio.us




    引用地址:

发表评论

您将收到博主的回复邮件
记住我