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

[浏览完整版]

标题：文件夹内容扫描

1楼

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

For Each File As String In FileSys.GetFiles("C:\Users\Administrator\Desktop\爆品资料")

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

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

r("分类") = "爆品"

[此贴子已经被作者于2024/1/13 15:38:25编辑过]

2楼

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

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

3楼

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

For Each File As String In FileSys.GetFiles("C:\Users\Administrator\Desktop\文件监控系统")

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

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

r("原始_文件路径") =

r("日期") = Date.Today

只能扫描一层文件可以包含子文件吗

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

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：自定义函数,批量获取文件夹内容

详细错误信息：

调用的目标发生了异常。

目录名称无效。

Dim e = args(0)

Dim lj As String = e.Form.Controls("路径").Text

Dim fl As String = e.Form.Controls("分类").Text

'Dim lj1 As String = lj

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(File) '如果有子目录

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

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

r("日期") = Date.Today

r("分类") = fl

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

测试了只有两层如果是若干层呢

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

8楼

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

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

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

9楼

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

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：自定义函数,递归文件

详细错误信息：

调用的目标发生了异常。

无法将类型为“System.String”的对象强制转换为类型“Foxtable.RequestEventArgs”。

Vars("扫描地址") = "C:\Users\Administrator\Desktop\爆品资料\"

For Each File As String In FileSys.GetFiles(Vars("扫描地址"))

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

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

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

r("日期") = Date.Today

For Each dir2 As String In FileSys.GetDirectories(Vars("扫描地址")) '如果有子目录递归

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

Functions.Execute("递归文件", dir2)

10楼

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

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

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