今天用一台装windows的机器从eMule下了些音乐下来，几十个压缩包，手工解压缩太麻烦。想批量解压缩，不知道是不是winrar没有这个功能，反正我是没在winrar里找到批量解压缩的功能。于是找找资料，写了一个WScript脚本来批量解压缩。有人问我为什么不用Linux来下载解压缩，没办法，谁叫大家都用rar压缩，在我的机器上，linux解rar出错率在10%左右。不知道是不是rp。
使用方法：
1）把C:\Program Files\WinRAR\Rar.exe复制一份到系统文件夹下(如：C:\WINDOWS)
2）把下面的代码保存为rar.js，假设保存到c盘下吧
1
var fso = WScript.CreateObject("Scripting.FileSystemObject");
2var archive_dir = "C:\\Program Files\\eMule\\Incoming\\beyond";//压缩文件存放路径
3var to_dir = "E:\\music";//解压缩到这里
4var rar_exe = "Rar.exe";//解压缩工具
5var get_name_pattern = /SurfChen\.\-\.\[([^\]]*)\]/;//获取文件名字的正则
6var number_of_pattern = 1;//名字在返回的正则匹配中的位置
7
if (fso.FolderExists(archive_dir)==false) {
8
WScript.Echo("folder does not exists");
9 WScript.quit(1);
10
}
11function getFiles(Folder)
12{
13 return new Enumerator(Folder.Files);
14}
15var WshShell = WScript.CreateObject("WScript.Shell");
16var my_folder = fso.GetFolder(archive_dir);
17var my_files = getFiles(my_folder);
18for (my_files.moveFirst();!my_files.atEnd();my_files.moveNext()) {
19 file_path = new String(my_files.item());
20 file_name_rs = file_path.match(get_name_pattern);
21 to_e_dir = to_dir+"\\"+file_name_rs[number_of_pattern];
22
if (fso.FolderExists(to_e_dir)==false) {
23 fso.CreateFolder(to_e_dir);
24
}
25 WshShell.run(rar_exe+" e \"" + file_path +"\" " + to_e_dir,0,true);
26}
var fso = WScript.CreateObject("Scripting.FileSystemObject");2
var archive_dir = "C:\\Program Files\\eMule\\Incoming\\beyond";//压缩文件存放路径3
var to_dir = "E:\\music";//解压缩到这里4
var rar_exe = "Rar.exe";//解压缩工具5
var get_name_pattern = /SurfChen\.\-\.\[([^\]]*)\]/;//获取文件名字的正则6
var number_of_pattern = 1;//名字在返回的正则匹配中的位置7
if (fso.FolderExists(archive_dir)==false) {
8
WScript.Echo("folder does not exists");9
WScript.quit(1);10
}11
function getFiles(Folder)12
{13
return new Enumerator(Folder.Files);14
}15
var WshShell = WScript.CreateObject("WScript.Shell");16
var my_folder = fso.GetFolder(archive_dir);17
var my_files = getFiles(my_folder);18
for (my_files.moveFirst();!my_files.atEnd();my_files.moveNext()) {19
file_path = new String(my_files.item());20
file_name_rs = file_path.match(get_name_pattern);21
to_e_dir = to_dir+"\\"+file_name_rs[number_of_pattern];22
if (fso.FolderExists(to_e_dir)==false) {
23
fso.CreateFolder(to_e_dir);24
}25
WshShell.run(rar_exe+" e \"" + file_path +"\" " + to_e_dir,0,true);26
}3）运行 WScript C:/rar.js