zjh7272 发表于 2014-7-30 09:04:19

vb 获取目录所有文件名

获取一个文件夹所有文件的名字(不包含子目录),然后用||把每个文件名字隔起来,
格式:
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

不包含子目录里的文件,你运行一下代码,写成通用函数即可

cpwev 发表于 2018-5-30 08:11:35

特大喜讯:澳门新葡京娱乐场:6777234.com平台微信号:cfucfu888
安全网上场设有彩票 六 合 彩 百 家 乐 龙虎 斗等真人游戏,都可以手机下注,即时提款。多存多送。关键是安全有保障!
页: [1]
查看完整版本: vb 获取目录所有文件名