vb怎么依次读取.txt文件

就是说在程序根目录内所有.txt全部读取。 顺带问下怎么筛选,比如说文件名末尾是key.txt的就自动跳过的代码 谢谢!
我有更好的答案
邀请更新
2013-12-30 最佳答案
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

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

szqaly

采纳率:77% 来自团队:网站学堂 擅长: VB 恋爱 C#/.NET

为您推荐:

×

类别

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

说明

0/200

提交
取消