| 以文本方式查看主题 - 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) |
| -- 作者：有点蓝 -- 发布时间：2024/1/13 15:54:00 -- 没看懂，描述的是什么问题？ |
| -- 作者：有点蓝 -- 发布时间：2024/1/19 11:16:00 -- 要使用递归，类似：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=186624&replyID=221634&skin=1 |
| -- 作者：有点蓝 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2024/1/19 15:15:00 -- 若干层要使用递归，去看4楼 r("原始_文件地址") = File 文件地址是哪个
|
| -- 作者：有点蓝 -- 发布时间：2024/1/20 17:49:00 -- 递归文件这个函数的代码呢？ |
| -- 作者：有点蓝 -- 发布时间：2024/1/21 20:39:00 -- "递归文件"函数 dim dir as string = args(0) For Each File As String In FileSys.GetFiles(dir) Dim r As DataRow = DataTables("产品_图库资源").AddNew() r("原始_文件名") = FileSys.GetName(File) r("原始_文件地址") = File r("日期") = Date.Today Next For Each dir2 As String In FileSys.GetDirectories(dir) \'如果有子目录递归 Functions.Execute("递归文件", dir2) Next 按钮 Functions.Execute("递归文件", "C:\\Users\\Administrator\\Desktop\\爆品资料\\")
|
| -- 作者：有点蓝 -- 发布时间：2024/1/22 14:00:00 -- 黄色代码一样用到递归函数里就行了 |
| -- 作者：有点蓝 -- 发布时间：2024/1/22 14:44:00 -- 什么乱七八糟的，看不懂就不要乱改，或者好好学学基础吧，不然别人给的代码都看不懂，给再多代码有啥用！ "递归文件"函数
dim dir as string = args(0) For Each File As String In FileSys.GetFiles(dir) Select Case File.SubString(File.LastIndexof(".") + 1) Case "bmp", "gif", "jpg", "png", "tif", "wmf" Dim r As DataRow = DataTables("产品_图库资源").AddNew() r("原始_文件名") = FileSys.GetName(File) r("原始_文件地址") = File r("日期") = Date.Today end select Next For Each dir2 As String In FileSys.GetDirectories(dir) \'如果有子目录递归 Functions.Execute("递归文件", dir2) Next 按钮 Functions.Execute("递归文件", "C:\\Users\\Administrator\\Desktop\\爆品资料\\") |