有用的JScript代码整理

JScript并不是我们熟知的JavaScript，但是跟JavaScript很像，如果要在Windows环境中做一些自动化工作，比直接写BAT批处理脚本要简单些。

JScript是由微软公司开发的活动脚本语言，是微软对ECMAScript规范的实现。JScript最初是随Internet Explorer 3.0于1996年8月发布。在网络程序员谈论Internet Explorer中的JavaScript的时候，他们实际上是指JScript。和其他活动脚本一样，它后来也被Windows Script Host（WSH）和Active Server Pages所支持。典型的JScript源文件使用的扩展名是.js。JScript最新的版本是基于尚未定稿的ECMAScript4.0版规范的JScript .NET，并且可以在微软的.Net环境下编译。JScript在ECMA的规范上增加了许多特性。 ——百度百科

准备

测试环境：Windows 10 专业版

测试文件夹目录结构如下:

testfolder
|---test.bat
|---test.js
|---folder1
|---|---folder1.1
|---|---folder1.2
|---|---a.txt
|---|---b.txt
|---|---c.txt

test.bat是批处理文件，测试的时候直接点击这个文件运行，该文件内容如下：

@rem 
@rem 
@rem 我是注释
@rem 

cscript ./test.js

pause

test.js文件是具体放JScript代码的地方，将下列功能的代码放在这里。

** 特别注意：中文系统下，将所有文件的编码格式改为GB2312，否则有乱码导致程序存在中文时有异常。**

遍历文件夹

/*******************************************
*遍历所有子文件夹
*******************************************/
var folderPath = "./folder1";
var folers = GetFolderList(folderPath);
for (; !folers.atEnd(); folers.moveNext())
{
	var folderName = folers.item();
	WScript.Echo("文件夹名称："+folderName.Name);
	WScript.Echo("文件夹路径："+folderName);
}

/*******************************************
*获取指定路径文件夹下的所有子文件夹
*@folderspec:文件夹路径
*return:子文件夹集合
*******************************************/
function GetFolderList(folderspec)
{
   var fso, f, fc;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(folderspec);
   fc = new Enumerator(f.SubFolders);
   return(fc);
}

输出结果：

C:\Users\Administrator\Desktop\testfolder>cscript ./test.js
Microsoft (R) Windows Script Host Version 5.812
版权所有(C) Microsoft Corporation。保留所有权利。

文件夹名称：folder1.1
文件夹路径：C:\Users\Administrator\Desktop\testfolder\folder1\folder1.1
文件夹名称：folder1.2
文件夹路径：C:\Users\Administrator\Desktop\testfolder\folder1\folder1.2

C:\Users\Administrator\Desktop\testfolder>pause
请按任意键继续. . .

遍历所有文件

/*******************************************
*遍历所有文件
*******************************************/
var folderPath = "./folder1";
var files = GetFolderFileList(folderPath);
for (; !files.atEnd(); files.moveNext())
{
	var fileName = files.item();
	WScript.Echo("文件名称："+fileName.Name);
	WScript.Echo("文件路径："+fileName);
}

/*******************************************
*获取指定文件夹路径下的所有文件
*@folderspec:文件夹路径
*return:文件夹下的文件集合
*******************************************/
function GetFolderFileList(folderspec)
{   
    var fso, folder, files;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    folder = fso.GetFolder(folderspec);
    files = new Enumerator(folder.files);
    return files;
}

输出结果：

C:\Users\Administrator\Desktop\testfolder>cscript ./test.js
Microsoft (R) Windows Script Host Version 5.812
版权所有(C) Microsoft Corporation。保留所有权利。

文件名称：a.txt
文件路径：C:\Users\Administrator\Desktop\testfolder\folder1\a.txt
文件名称：b.txt
文件路径：C:\Users\Administrator\Desktop\testfolder\folder1\b.txt
文件名称：c.txt
文件路径：C:\Users\Administrator\Desktop\testfolder\folder1\c.txt

C:\Users\Administrator\Desktop\testfolder>pause
请按任意键继续. . .

获取文件MD5值

有时候需要找出修改的文件，对比文件MD5值是有用的，耗时看文件大小，文件太大时间可能很长。

/*******************************************
*遍历所有文件，获取文件MD5值
*******************************************/
var folderPath = "./folder1";
var files = GetFolderFileList(folderPath);
for (; !files.atEnd(); files.moveNext())
{
	var fileName = files.item();
	WScript.Echo(fileName.Name+"的MD5值："+GetFileMD5(fileName));
}

/*******************************************
*获取指定文件夹路径下的所有文件
*@folderspec:文件夹路径
*return:文件夹下的文件集合
*******************************************/
function GetFolderFileList(folderspec)
{   
    var fso, folder, files;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    folder = fso.GetFolder(folderspec);
    files = new Enumerator(folder.files);
    return files;
}

/*******************************************
*获取文件MD5值
*@filePath:脚本文件绝对路径
*******************************************/
function GetFileMD5(filePath)
{
	var objShell = new ActiveXObject("WScript.Shell");
	var iReturnMsg = objShell.Exec("cmd.exe /c certutil -hashfile \""+filePath+"\" MD5");
	var result = iReturnMsg.StdOut.ReadAll();
	var splitArr = result.split("\n");
	var fileMD5 = splitArr[1].replace(/\s/g,"");
	return fileMD5;
	//WScript.Echo(fileMD5);
}

输出结果：

C:\Users\Administrator\Desktop\testfolder>cscript ./test.js
Microsoft (R) Windows Script Host Version 5.812
版权所有(C) Microsoft Corporation。保留所有权利。

a.txt的MD5值：22d42eb002cefa81e9ad604ea57bc01d
b.txt的MD5值：1efc98f0102b2109fb90307e6e1c484e
c.txt的MD5值：ba2ee8e2ba48e6667dca8c83dab38f4c

C:\Users\Administrator\Desktop\testfolder>pause
请按任意键继续. . .

创建Excel文件

CreateExcelFile("./texcel.xlsx",3);

/*******************************************
*创建Excel文件
*@filePathName:文件路径，相对路径或绝对路径
*@sheetCount:Excel中Sheet的个数
*******************************************/
function CreateExcelFile(filePathName,sheetCount)
{
	try{
		var ExcelApp = new ActiveXObject("Excel.Application");
		var WshShell = WScript.CreateObject ("WScript.Shell");
		var currentPath = WshShell.CurrentDirectory;
		var i;
		
		ExcelApp.Visible = false;
		ExcelApp.DisplayAlerts = false;
		var ExcelBook = ExcelApp.Workbooks.Add;
		
		for (i=1;i<sheetCount;++i)
		{
			ExcelBook.Worksheets.Add;
		}
		
		if (filePathName.indexOf(".") == 0)
		{
			currentPath = currentPath + filePathName.slice(1);
		}else{
			currentPath = filePathName;
		}
		
		currentPath = currentPath.replace(/\//g,"\\");
		//currentPath = currentPath.replace(/\\/g,"\\\\"); 路径在变量中不用转义

		//保存表格
		ExcelBook.SaveAs(currentPath);
	}catch(e){
		WScript.Echo("发生异常："+e);
	}finally{
		//用 Application 对象用 Quit 方法关闭 Excel。
		ExcelApp.Quit();
	}
}