以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件夹内容扫描  (http://foxtable.net/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
--  
递归文件这个函数的代码呢？