易语言教程_易语言源码_易语言写挂_易语言论坛_看流星社区

 找回密码
 注册
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
查看: 1088|回复: 1

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, 2019-1-23 20:56

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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