请教高手,用什么函数或方法能得到已知文件夹下的未知文件名啊?谢谢回答!!

Question

内容如上:

Answer 1

'查找特定路径下某种类型文件,将名称保存在数组中，Ubound(数组)的值即为文件个数
Sub aaa()
    Dim strFileName() As String
    Dim FileName As String
    Dim j As Long
    j = -1
    FileName = Dir(你的路径 & "*.*")
    Do While FileName <> ""
         If FileName <> "." And FileName <> ".." Then
              j = j + 1
              ReDim Preserve strFileName(j + 1)
              strFileName(j) = FileName
         End If
         FileName = Dir   ' 查找下一个文件。
    Loop
End Sub

Answer 2

最简单的办法，用VB标准的filelist控件，不会动态加载的，那就放一个隐藏的FileList控件就行了。
呵呵，多注意一下VB标准控件啊。