Question

现在有一个文件夹下面有多个文本文件，我想用VB逐个打开读取里面的数据？？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

Answer 1

Dim Files() As String

Private Sub Command1_Click()
getFiles "c:\", Files() '获得文件,文件保存在Files()中
'后面为读取数据

End Sub

Private Sub getFiles(ByVal FilePath As String, F() As String)
Dim FileList As FileListBox
Dim i As Integer
Set FileList = Me.Controls.Add("VB.FileListBox", "FileList", Me)
FileList.Pattern = "*.txt"
FileList.Path = FilePath
For i = 0 To FileList.ListCount - 1
ReDim Preserve F(i)
F(i) = FilePath & FileList.List(i)
Next
Me.Controls.Remove FileList.Name
Set FileList = Nothing
End Sub

Answer 2

1、使用 filesystemobject 对象来操作目录文件夹下的所有文件；
2、使用 dir 函数，查看它的说明文档，知道它第一次制定文件目录后，以后每次调用都会取下一个文件，直到取完。
以上任选一种。