Question

VB打开一个文件夹下所有的*.txt文件并且对其进行读取操作

Answer 1

dim aa as string
aa =dir ("一个文件夹的路径\*.txt")
do while aa<>""
'打开这个"一个文件夹的路径\" & aa TXT文件，并读取
aa =dir()

loop

追问

不好意思啊，刚没说明白，我是想在listview里面显示所有*.txt文件的内容。而非文件名。该怎么做？谢谢！

追答

好吧。。。我给你代码：

Dim aa As String
Dim TextLine, a
aa = Dir("一个文件夹的路径\*.txt")
Do While aa <> ""

Open "一个文件夹的路径\" & aa For Input As #1    ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
  Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
  a = a & TextLine ' 把读入的文本存入A中
Loop
Close #1   ' 关闭文件。
ListView1.ListItems.Add a '将文本数据放到ListView里
aa = Dir()
Loop