vb 如何批量打开文件

来源：百度知道编辑：UC知道时间：2024/06/01 21:54:13

a=split("a.txt|b.txt|c.txt","|")

For x = 1 To 2
Open App.Path & a(x) For Input Lock Write "#"&x
Next

类似这样的意思,但这个说类型不对,出错,怎么样能实现一次性批量打开所有想打开的文件?

For each x a
Open App.Path & x For Input Lock Write "#"&x
Next

先定义个子函数试试：
Function a(b as string) As String
a=b & ".txt"
End Function
再引用
For x = 1 To 2
Open App.Path & a(x) For Input Lock Write "#"&x
Next

你的语言错误！