添加一个LIST1 名称改为List_fileName
==========================
Sub fileName(path As String)
List_fileName.Clear
Dim a As String
Dir path
Do
a = Dir()
List_fileName.AddItem a
Loop Until a = ""
End Sub
======================
引用过程 如 要查看C:/下的文件
fileName("c:/*.*")
通过更改 *.* 可以获取其他类型的文件名字。