标题：文件夹内容扫描

1楼

yifan3429 发表于：2024/1/13 15:33:00

用户已锁定！

2楼

有点蓝 发表于：2024/1/13 15:54:00

没看懂，描述的是什么问题？

3楼

yifan3429 发表于：2024/1/19 11:12:00

用户已锁定！

4楼

有点蓝 发表于：2024/1/19 11:16:00

要使用递归，类似：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=186624&replyID=221634&skin=1

5楼

yifan3429 发表于：2024/1/19 11:23:00

用户已锁定！

6楼

有点蓝 发表于：2024/1/19 11:28:00

For Each File As String In FileSys.GetFiles(lj)

Dim r As DataRow = DataTables("产品_图库资源").AddNew()

r("原始_文件名") = FileSys.GetName(File)

r("日期") = Date.Today

r("分类") = fl

For Each dir2 As String In FileSys.GetDirectories(lj) '如果有子目录

For Each File2 As String In FileSys.GetFiles(dir2 )

Dim r As DataRow = DataTables("产品_图库资源").AddNew()

r("原始_文件名") = FileSys.GetName(File2)

r("日期") = Date.Today

r("分类") = fl

7楼

yifan3429 发表于：2024/1/19 15:06:00

用户已锁定！

8楼

有点蓝 发表于：2024/1/19 15:15:00

若干层要使用递归，去看4楼

r("原始_文件地址") = File 文件地址是哪个

9楼

yifan3429 发表于：2024/1/20 17:39:00

用户已锁定！

10楼

有点蓝 发表于：2024/1/20 17:49:00

递归文件这个函数的代码呢？

共17 条记录, 每页显示 10 条, 页签: [1] [2]