vb如何获得某一目录下的所有文件的文件名?

Question

用vb编程
如何获得某一目录下的所有文件的文件名?
(写下实现的关键代码)
谢谢!

Answer 1

引用Microsoft Scripting RuntimePrivate Sub Command1_Click()
    Dim FSO As FileSystemObject
    Dim FLD As Folder
    Dim FLS As Files
    Dim FLE As File
    
    Set FSO = New FileSystemObject
    
    Set FLD = FSO.GetFolder("C:\Windows")
    
    Set FLS = FLD.Files
    
    For Each FLE In FLS
        List1.AddItem FLE.Name
    Next
    
    Set FLS = Nothing
    
    Set FLD = Nothing
    
    Set FSO = Nothing
End Sub

Answer 2

不知道这样可不可以哦，3个控件 drivelistbox , dirlistbox, filelistbox
 啊哦啊哦，不可以哦。我试了。

Answer 3

dim sfilename as string
sfilename=dir("c:\windows\*.*")
do while sfilename<>""
  debug.print sfilename
  sfilename=dir
loop以上代码没考虑子目录的情况。

Answer 4

用 DIR 函数就可以！仔细看下帮助！