[求助]判读指定路径的文件数和名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有5837人关注过本帖树形打印复制链接主题：[求助]判读指定路径的文件数和名

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/6/6 20:47:00 [显示全部帖子]

在帮助搜索：vbcrlf

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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) '显示内容

下一主题 >> << 上一主题

主题：[求助]判读指定路径的文件数和名