broly

//保存我为 GetSomeDoc.js  并在文件目录下运行

var fso,folder,fc,newFolder;
var re,strFilename,strExtname;

fso = new ActiveXObject("Scripting.FileSystemObject");
if( !fso.FolderExists("不含中文") ) {
	folder = fso.CreateFolder("不含中文");
	newFolder = folder.Path + "\\" ;
} else {
	newFolder = "不含中文" + "\\";
}

folder = fso.GetFolder(".");  //获得当前目录
fc = new Enumerator(folder.files);  //枚举目录的文件


re = new RegExp(".*[\u4e00-\u9fa5]+.*","i");

for (; !fc.atEnd(); fc.moveNext())
{
	strExtname = fso.GetExtensionName(fc.item()).toLowerCase();
	if( strExtname=="doc" || strExtname=="docx" )
	{
		if( re.test(fso.GetBaseName(fc.item())) )
			fso.MoveFile(fso.GetAbsolutePathName(fc.item()),newFolder);
	}
}

WScript.Echo("保存在当前的《不含中文》目录下");
复制代码