Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件夹内容扫描


  共有995人关注过本帖树形打印复制链接

主题：文件夹内容扫描
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		文件夹内容扫描  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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
只能扫描一层文件 可以包含子文件吗
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/19 15:06:00 [显示全部帖子]

测试了只有两层 如果是若干层呢
r("原始_文件地址") = FileSys.GetName(File) 文件地址是哪个
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/21 14:07:00 [显示全部帖子]

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

一样的
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/22 13:53:00 [显示全部帖子]

想 对文件做个筛选、合适的就导入
不合适的跳过
Dim e = args(0)
Dim dir As String = args(0)
Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof(".") + 1) '获得文件后缀名
Select Case ext
    Case "bmp", "gif", "jpg", "png", "tif", "wmf" 
        For Each File As String In FileSys.GetFiles(dir)
            Dim r As DataRow = DataTables("产品_图库资源").AddNew()
            Dim ifo As New FileInfo(File)
            r("原始_文件名") = FileSys.GetName(File)
            r("原始_文件地址") = File
            r("日期") = Date.Today
            r("网络_文件大小") = Round2(ifo.Length / 1024000, 2) & " M"
            r("网络_文件地址") = ifo.Path
            r("文件_后缀") = ifo.Extension
            r("文件_创建时间") = ifo.CreationTime 
        Next
        For Each dir2 As String In FileSys.GetDirectories(dir) '如果有子目录递归
            Functions.Execute("递归文件", dir2)
        Next 
    Case Else
        MessageBox.Show("此列只能能插入图片文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        e.Cancel = True '取消插入
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/22 14:36:00 [显示全部帖子]

上面就是递归函数代码

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：自定义函数,递归文件
详细错误信息：
调用的目标发生了异常。
未找到类型“String”的公共成员“FileName”。
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2024/1/22 16:10:00 [显示全部帖子]

谢谢老师 第一次用递归

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 5 次数据查询