Question

vb 列举一个文件夹下所有.txt文件名称

Answer 1

Private Sub Form_Load()
Dim strFile As String
List1.Clear
strFile = Dir("E:/编程代码/*.txt")
Do Until strFile = ""
List1.AddItem strFile
strFile = Dir
Loop
End Sub

Answer 2

在窗体的LOAD事件中加载一个文件控件：
Private Sub Form_Load()
File1.Path = App.Path & "\指定文件夹" '指定一个文件夹
File1.Pattern = "*.TXT" '指定文件类型
End Sub