如何用VB读取多个文本文件下的内容

[luxin12345678]

我可以实现打开一个文件的文件内容,可是多个不知道如何实现,比如后缀都为LOG的文本文件,我要一次性全部打开,如何打开?
Private Sub Command1_Click()

Dim s As String
Dim s1 As String
Open "c:\Documents and Settings\YANG\桌面\EasyTQ20060307055.log" For Input As #1

's = StrConv(InputB(LOF(1), #1), vbUnicode)
Do While EOF(1) = False
Line Input #1, s
s1 = s1 + s & vbCrLf
Loop

Close #1

Text4.Text = s1

End Sub

[glc20022003]

把另一个LOG文件做为#2打开,应该可以

[ZOU_SEAFARER]

打开一个后循环再打开另外一个！

[luxin12345678]

如何循环取出该盘下的所有LOG文件呢?最好有源码!1

[ZOU_SEAFARER]

需要引用 microsoft Scription runtime
Public Sub SearchFile(FolderSpec As String)
Dim fso As FileSystemObject
Dim F As Folder
Dim Fil As File
Dim sName As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.GetFolder(FolderSpec)
For Each Fil In F.Files
sName = F1.Name
If Right(sName, 3) = "LOG" Then
Debug.Print sName
End If
Next
End Sub

[glc20022003]

LogFileName=dir("c:\Documents and Settings\YANG\桌面\*.log")
Dim s As String
Dim s1 As String
Open LogFileName For Input As #1
's = StrConv(InputB(LOF(1), #1), vbUnicode)
Do While EOF(1) = False
Line Input #1, s
s1 = s1 + s & vbCrLf
Loop
Close #1
Text4.Text = s1

Do While LogFileName <> ""
LogFileName=dir
if LogFileName="" then exit do


Open LogFileName For Input As #1
's = StrConv(InputB(LOF(1), #1), vbUnicode)
Do While EOF(1) = False
Line Input #1, s
s1 = s1 + s & vbCrLf
Loop
Close #1
Text4.Text = s1

loop

[luxin12345678]

楼上的代码有问题 我试后还是不能把所有为LOG后缀的文件的内容添加到TEXT4.TEXT中啊!
有那位知道请快点告诉我 谢谢了