用VB6.0如何获得某一文件下的所有txt的名称？

来源：百度知道 编辑：UC知道 时间：2024/05/15 23:35:18
比如我要获得文件“D:\DATA”中所有的TXT文件的名称，并把这些TXT文件的名称添加到list1中，例如list1中显示
SYS.txt
COM.txt
.
.
.
如何实现，代码执行要求效率高，因为txt文件可能较多。谢谢！
最好不要用FileSystemObject
如解决我追加50分

'查找目录“D:\DATA”下的所有 txt 文件：
Private Sub Command1_Click()
Dim F As String, I As Long, nPath As String, nName As String
nName = Dir("D:\DATA\*.txt", 7)
List1.Clear
Do
If nName = "" Then Exit Do
List1.AddItem nName
nName = Dir()
Loop
MsgBox "找到 " & List1.ListCount & " 个文件", vbInformation
End Sub

用drivelist dirlistbox,filelistbox三个控件配合可能是最简单的啦

呵呵,加一个filelistbox,一个listbox就好了
'===============================================================
Private Sub Form_Load()
Dim a As Integer
File1.Path = "d:\data"
File1.Pattern = "*.txt"
For a = 0 To File1.ListCount - 1
File1.ListIndex = a
List1.AddItem File1.FileName
Next
End Sub

Private Sub Form_Activate()
Set fs = CreateObject("Scripting.FileSystemObject")
strfile = Dir("d:\data\*.txt")