Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]判读指定路径的文件数和名


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

主题：[求助]判读指定路径的文件数和名
帅哥哟，离线，有人找我吗？
8350
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		[求助]判读指定路径的文件数和名  发帖心情 Post By：2013/6/6 20:03:00 [只看该作者]

因刚刚学习弧表，看到这个函数


返回一个字符集合，该集合包括指定目录下的所有文件名。

语法：

GetFiles(directory)

directory: 指定的目录，获得该目录下所有的文件名。

例如列出C盘根目录下所有的文件名：

For Each File As String In FileSys.GetFiles("C:\")
    Output.Show(File)
Next



想请教以下问题：


能完成判读指定总文件夹下的（最好是可以选择任意路径）个子文件夹中的文件数量和文件名称，且对问题子文件夹名称和问题生成一个总得txt进行提示，请问怎么综合处理？

例如：A文件夹中有很多子文件夹  如001，002，003......，这些子文件夹001中均必须含有以下文件：（001分数表.els,001成绩表.els,001个人资料，001历年表现），002文件夹中含有（（002分数表.els,002成绩表.els,002个人资料，002历年表现））依次类推003，004，005，006.......



生成一个txt错误提示文件，列出指定子文件夹名称后说明其中缺少什么资料，就可以了。



学习，请指教。。。。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/6/6 20:10:00 [只看该作者]


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


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/6/6 20:13:00 [只看该作者]

怎么将得到的结果生成txt文件呢？

主要还是这段不太会？？？

能给一段样例或类似的代码我看看么？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/6/6 20:40:00 [只看该作者]

Dim s As String
For Each dr As String In filesys.GetDirectories("C:\Foxtable")
    s = s & dr & ":" &  vbcrlf
    For Each f As String In filesys.GetFiles(dr)
        s = s & filesys.getname(f) & vbcrlf
    Next
    s = s & vbcrlf
Next
output.show(s)

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


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/6/6 20:46:00 [只看该作者]

以下是引用狐狸爸爸在2013-6-6 20:10:00的发言：

选择目录：

http://www.foxtable.com/help/topics/0359.htm

 

列出文件夹：

http://www.foxtable.com/help/topics/1413.htm

 

获得文件夹下的文件：

http://www.foxtable.com/help/topics/0341.htm

 

 

 这些代码怎么串联呀，不会，简单的还行。变量的不停引用不会，还有就是楼上写的代码有点看不懂？vbcrlf是什么？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/6/6 20:47:00 [只看该作者]

在帮助搜索：vbcrlf

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


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/6/6 20:52:00 [只看该作者]

由于换行符使用的频率很高，所以Visual Basic提供了一个常量vbcrlf，其值等于：Chr(13) & Chr(10)




能注释一下你写的代码么，刚学太深奥了，同时你能帮看看我提出的设想，能将贺总给的三个连接牵涉的代码帮我简单的组织一下各个代码示例么。



辛苦
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/6/6 20:56:00 [只看该作者]

所有的都是帮助中的啊，这种代码看不懂，应该先去看三遍帮助文件的。

 

 

Dim s As String
For Each dr As String In filesys.GetDirectories("C:\Foxtable") '获得c:\foxtable目录下的所有子目录
    s = s & dr & ":" &  vbcrlf  ‘子目录名合并到字符串s，后面加个换行
    For Each f As String In filesys.GetFiles(dr) ’获得子目录下的所有文件
        s = s & filesys.getname(f) & vbcrlf ‘文件名合并到字符串s，后面加个换行
    Next
    s = s & vbcrlf
Next
output.show(s)  '显示内容

 

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


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/6/6 21:05:00 [只看该作者]

实在不好意思，确实刚学，想一边看帮助一边按想法实践，这些现在看懂了

但是我所说的问题这些只能完成部分工作，我主要想看看多种代码和变量之间怎么衔接和运用，确实分段执行我看帮助能懂一点，请多指教，辛苦


判读文件数量和名称且生成txt报告呢？

vb是可以的，例如：
*********542625201206JC00009缺少以下资料:*********
542625201206JC00009宗地草图.dwg
*********542625201206JC00010缺少以下资料:*********
542625201206JC00010宗地草图.dwg
*********542625201206JC00011缺少以下资料:*********
542625201206JC00011宗地草图.dwg
*********542625201206JC00012缺少以下资料:*********
542625201206JC00012宗地草图.dwg
*********542625201206JC00014缺少以下资料:*********
542625201206JC00014宗地草图.dwg
*********542625201206JC00020缺少以下资料:*********
542625201206JC00020.dwg
*********542625201206JC00022缺少以下资料:*********
542625201206JC00022宗地草图.dwg
*********542625201206JC00025缺少以下资料:*********
542625201206JC00025宗地草图.dwg
*********542625201206JC00026缺少以下资料:*********
542625201206JC00026宗地草图.dwg
*********542625201206JC00027缺少以下资料:*********
542625201206JC00027宗地草图.dwg
[此贴子已经被作者于2013-6-6 21:07:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
8350
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：494 威望：0 精华：0 注册：2008/9/5 8:41:00 		  发帖心情 Post By：2013/6/13 11:30:00 [只看该作者]

唉，我折腾了好几天，都没有能搞出来，估计我是没有搞懂。

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