vb怎么依次读取.txt文件

就是说在程序根目录内所有.txt全部读取。顺带问下怎么筛选,比如说文件名末尾是key.txt的就自动跳过的代码谢谢!... 就是说在程序根目录内所有.txt全部读取。 顺带问下怎么筛选,比如说文件名末尾是key.txt的就自动跳过的代码 谢谢! 展开
 我来答

答题抽奖

首次认真答题后

即可获得3次抽奖机会,100%中奖。

更多问题
最佳答案
szqaly
2013-12-30
szqaly
采纳数:1396 获赞数:1283 LV13
擅长:VB 恋爱 C#/.NET
向TA提问 私信TA
展开全部
Dim fso as object
Set fso = CreateObject("Scripting.Filesystemobject")
Dim file as string
file=dir(app.path & "\*.txt")
Dim text as string
Do Until file=""
    If LCase(Right(file,7)) <> "key.txt" Then '如果尾部不包含"key.txt"
        text=fso.OpenTextFile(app.path & "\" & file).ReadAll '读取文件
        debug.print text
    End if
    file=dir() '遍历文本文件,返回下一个文件名
loop

没试,把它复制到一个按钮事件中试试效果,

为你推荐:

×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消