-
2005年06月13日
wsh改名脚本
版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
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);
随机文章:
j2ee系统与rtx的整合实现 2006年07月27日commons-fileupload中文乱码问题的解决 2005年12月20日操作dbf的类库 2005年09月08日Sync4j的相关新项目 2005年08月20日
收藏到:Del.icio.us
引用地址:





