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

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

vb 获取目录所有文件名

[复制链接]
发表于 2014-7-30 09:04:19 | 显示全部楼层 |阅读模式
发表于 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

不包含子目录里的文件,你运行一下代码,写成通用函数即可
发表于 2018-5-30 08:11:35 | 显示全部楼层
特大喜讯:澳门新葡京娱乐场:6777234.com平台微信号:cfucfu888
安全网上场设有彩票 六 合 彩 百 家 乐 龙虎 斗等真人游戏,都可以手机下注,即时提款。多存多送。关键是安全有保障!
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
*滑动验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2018-10-19 22:35 易语言论坛 易语言导航

Powered by 看流星社区 X3.2

©2011-2016 最好的辅助编程技术论坛

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