var xls = new ActiveXObject("Excel.application");
xls.Workbooks.open("D:\\Calibre.xlsx");//打开excel文件
xls.visible = true;//窗口可显示
var xlsheet=xls.ActiveSheet;//操作sheet表
var line = 1;
do {
  line++;
  xlsheet.Cells(line,1).Value != null
  if (xlsheet.Cells(line,1).Value == null) {
    break;
  }
  var str = xlsheet.Cells(line,1).Value
  var file_path=str.split("\\cover.jpg",1)
  var fso = new ActiveXObject("Scripting.FileSystemObject");
  var fldr = fso.GetFolder(file_path);
  fc = new Enumerator(fldr.files);
  for (; !fc.atEnd(); fc.moveNext())//枚举所有文件  
  {
    s = fc.item();   //取文件对象
    var file_name = s.name.lastIndexOf(".");//获取最后一个.的位置
    var ext = s.name.substr(file_name+1);//获取后缀
    if (ext == "azw3") {
      xlsheet.Cells(Number(line),2).Value = s;
    }
    if (ext == "pdf") {
      xlsheet.Cells(Number(line),3).Value = s;
    }
    if (ext == "mobi") {
      xlsheet.Cells(Number(line),4).Value = s;
    }
    if (ext == "epub") {
      xlsheet.Cells(Number(line),5).Value = s;
    }
  }
}
while (xlsheet.Cells(line,1).Value != null);
xls.ActiveWorkbook.Save();
xls.Workbooks.Close();
WSH.Echo("全部完成，结束行：",line);

知识点：
1.do循环中，加入if判断所在位置是否为空来进行break断点退出循环，结束运行。

  if (xlsheet.Cells(line,1).Value == null) {
    break;
  }

2.通过split来对最后文件名进行分割，取开头第一个内容，拿到cover.jpg的路径。

  var str = xlsheet.Cells(line,1).Value
  var file_path=str.split("\\cover.jpg",1)

3.调用Scripting.FileSystemObject对象来遍历路径全部文件。

  var fso = new ActiveXObject("Scripting.FileSystemObject");
  var fldr = fso.GetFolder(file_path);

4.for枚举文件进行提取后缀名，采用lastIndexOf函数，进行获取最后一个.的位置，再用substr定位到位置开始+1提取后缀名。最后if判断，再把Value内容为s（指定文件的路径）导入到相应的excel表格中。

for (; !fc.atEnd(); fc.moveNext())//枚举所有文件  
  {
    s = fc.item();   //取文件对象
    var file_name = s.name.lastIndexOf(".");//获取最后一个.的位置
    var ext = s.name.substr(file_name+1);//获取后缀
    if (ext == "azw3") {
      xlsheet.Cells(Number(line),2).Value = s;
    }
    if (ext == "pdf") {
      xlsheet.Cells(Number(line),3).Value = s;
    }
    if (ext == "mobi") {
      xlsheet.Cells(Number(line),4).Value = s;
    }
    if (ext == "epub") {
      xlsheet.Cells(Number(line),5).Value = s;
    }
  }

5.while到表格中内容 != null 不是时，继续do循环。其中!=为不是，==为啥。直到最后if中的break断点提前结束do循环，避免继续运行发现无内容提取报错。结束后回显结束行号到多少。

while (xlsheet.Cells(line,1).Value != null);
xls.ActiveWorkbook.Save();
xls.Workbooks.Close();
WSH.Echo("全部完成，结束行：",line);

参考文献：
JS 获取文件后缀，判断文件类型(比如是否为图片格式)
https://blog.csdn.net/qq_45457134/article/details/109486650

JS 遍历文件夹指定后缀文件
https://www.cnblogs.com/ygrzzz/articles/2116750.html