//Global Variables
var folderspec; //Folder Path
var fso;        //FileSystemObject
var excel;      //Excel Object
var bookCount;

 function findFolders(path)
 {

  var f, fc,files;
  f = fso.GetFolder(path);
  fc = new Enumerator(f.SubFolders);
  files = new Enumerator(f.Files);

  for (; !files.atEnd(); files.moveNext())
  {
      var ext = fso.GetExtensionName(files.item());
      if (ext == "pdf" || ext == "djv" || ext == "djvu" ||
          ext == "ps"  || ext == "chm" || ext == "htm"  ||
          ext == "html"|| ext == "txt" || ext == "doc"  ||
          ext == "rar" || ext == "zip" )
      {
       excel.Cells(2+bookCount,1).Select;
        excel.ActiveSheet.Hyperlinks.Add(excel.Selection, files.item(), "File");
        excel.Selection.Value = fso.GetFileName(files.item());
       excel.Cells(2+bookCount,2).Value = files.item();
       excel.Cells(2+bookCount,3).Value = files.item().size;

       bookCount = bookCount + 1;
       WScript.StdOut.Write(files.item()+"\n");   
      }
  }

  for (; !fc.atEnd(); fc.moveNext())
  { 
    findFolders(fc.item());
  }
 }

//Main Routine

folderspec = WScript.Arguments(0);
fso = new ActiveXObject("Scripting.FileSystemObject");
excel = new ActiveXObject("Excel.Application");

excel.Workbooks.Add;
excel.Columns(1).ColumnWidth = 150;
excel.Columns(2).ColumnWidth = 10;
excel.Cells(1,1).Value = "Book Name";
excel.Cells(1,2).Value = "Location";
excel.Cells(1,3).Value = "Size";
excel.Visible = false;

bookCount = 0;
findFolders(folderspec);

excel.Visible = true;

WScript.StdOut.Write("(c) by Petro Protsyk \n");   
    

Last updated: 28 may 2007