利用FileSystem的方法递归遍历指定文件夹的所有层级文件(另有Value的另类用法)

spaghetti8

遍历指定文件夹的所有层级文件是一个常见的需求,以前是采用Dir()的方法,现在18608版本更新后,可以通过利用FileSystem的方法递归来实现,另浅谈一下Value的另类用法:

一、本例中，利用到了FileSystem的三个方法：
    1、FileSystem.readdirSync(path)
    2、FileSystem.stat(path)
    3、FileSystem.stat((path)).isDirectory()
  第一个方法是遍历path里的文件及文件夹，但是，它只遍历一层，不会再向下遍历
  第二个方法是返回path的各种属性，例如创建时间，修改时间，是否是文件，文件大小等
  第三个方法是判断是否是文件夹，是就返回true，否则返回false

  二、Value的另类用法：
  一般情况下，大家都喜欢用Value2进行取值和赋值，其实还有另一种是Value；  它们的区别包括但不限于：
          1、Value2是属性，Value是方法；方法的调用必须加()，所以Value后面必须跟括号，如果括号里面不传参，则代表取值，  如果传参则代表赋值。根据本人测试，当第一个参数设置为null或者10时，可以对第二参数的数据进行写入。
           2、Value在不传参取值时，如果单元格的值是日期，则与Value2的取值不同，例如，单元格显示2024/10/25，Value2的取值为45590,typeof的结果为"number"，Value()的取值为1729814400000,typeof的结果为"object"，可以对这个结果进行getTime的操作.

Again123456

曾经遍历看到过 stat，没时间摸索怎么用，学习了。

Again123456

mkdtempSync是指定临时文件夹的么？不知道怎么用的

wbjjzhu

运行提示错误？？

lizhipei78

楼主有空把代码上传一下，最主要是懒得一个一个打了，我想好多人也都是这样子，虽然拿来主义不好

spaghetti8

lizhipei78 发表于 2024-11-9 12:37
楼主有空把代码上传一下，最主要是懒得一个一个打了，我想好多人也都是这样子，虽然拿来主义不好

附件当时忘记传了，现在补一个。

1. function test241025(){//递归遍历指定文件夹的所有层级文件
   
2.         const fs = Application.FileDialog(msoFileDialogFolderPicker);        //定义文件夹选择器
   
3.         fs.Show();                                                                                                                //显示文件夹选择器
   
4.         const res = [[fs.SelectedItems(1)]];                                                        //取得选中的第一个文件夹，并二维化       
   
5.         (function listDir(path){                                                                                //递归函数
   
6.                 FileSystem.readdirSync(path).forEach(file => {
   
7.                         res.push([`${path}/${file}`])
   
8.                         FileSystem.stat(`${path}/${file}`).isDirectory() && listDir(res.at(-1)[0])
   
9.                 })       
   
10.         }(res[0][0]));                                                                                                        //从第一个文件夹开始运行
    
11.         Range('A:A').Clear();                                                                                        //清楚单元格区域
    
12.         Range('A1').Resize(res.length, 1).Value(10,res);                                //写入数据
    
13. }

复制代码

cjitoliaw

楼主真不错,请问一下Range('A1').Resize(res.length, 1).Value(10,res)这代码怎么会是写入数据呢？看不懂，谢谢

spaghetti8

cjitoliaw 发表于 2024-11-28 20:35
楼主真不错,请问一下Range('A1').Resize(res.length, 1).Value(10,res)这代码怎么会是写入数据呢？看不懂， ...

程序就是这么规定的,不传参就是取值,传入指定参数就是赋值.