看流星社区

 找回密码
 注册账号
查看: 2876|回复: 1

[VB] vb 获取目录所有文件名

[复制链接]

该用户从未签到

发表于 2014-7-30 09:04:19 | 显示全部楼层 |阅读模式
获取一个文件夹所有文件的名字(不包含子目录),然后用||把每个文件名字隔起来,
格式:
1.txt||2.txt||3.exe||4.doc
最后输出到Text1.text
最好能做成模块,方便调用

该用户从未签到

发表于 2014-7-30 09:04:32 | 显示全部楼层
Private Sub Command1_Click()

Dim fso As Object
Dim folder As Object
Dim subfolder As Object
Dim file As Object
Set fso = CreateObject("scripting.filesystemobject")                          '创建FSO对象
Set folder = fso.getfolder("C:\")

For Each file In folder.Files                     '遍历根文件夹下的文件
              MsgBox file     '输出文件名
Next
Set fso = Nothing
Set folder = Nothing
End Sub

不包含子目录里的文件,你运行一下代码,写成通用函数即可
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 13:42

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表