| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 文件夹内容扫描 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190050) |
| -- 作者：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("分类") = "爆品" Next [此贴子已经被作者于2024/1/13 15:38:25编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2024/1/13 15:54:00 -- 没看懂，描述的是什么问题？ |
| -- 作者：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 Next 只能扫描一层文件 可以包含子文件吗 |
| -- 作者：有点蓝 -- 发布时间：2024/1/19 11:16:00 -- 要使用递归，类似：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=186624&replyID=221634&skin=1 |
| -- 作者：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 Next Next |
| -- 作者：有点蓝 -- 发布时间：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 Next 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 Next Next |
| -- 作者：yifan3429 -- 发布时间：2024/1/19 15:06:00 -- 测试了只有两层 如果是若干层呢 r("原始_文件地址") = FileSys.GetName(File) 文件地址是哪个
|
| -- 作者：有点蓝 -- 发布时间：2024/1/19 15:15:00 -- 若干层要使用递归，去看4楼 r("原始_文件地址") = File 文件地址是哪个
|
| -- 作者：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 Next For Each dir2 As String In FileSys.GetDirectories(Vars("扫描地址")) \'如果有子目录递归 For Each File2 As String In FileSys.GetFiles(dir2) Functions.Execute("递归文件", dir2) Next Next |
| -- 作者：有点蓝 -- 发布时间：2024/1/20 17:49:00 -- 递归文件这个函数的代码呢？ |