怎样实现读取一个文件夹下的所有文件和文件夹的名字?

Question

如题,谢谢!

Answer 1

dir就可以实现，
先用ChDir 把当前路径改到需要的地方。然后用dir可以返回了，如果为空就立即退出循环，否则错误
ChDir "X:\xxx\"
s=dir
do until s=""
  debug.print s
  s=dir
loop

Answer 2

dir就可以实现，
先用ChDir 把当前路径改到需要的地方。然后用dir可以返回了，如果为空就立即退出循环，否则错误
ChDir "X:\xxx\"
s=dir
do until s=""
  debug.print s
  s=dir
loop

Answer 3

用FileListBox，直接指定Path属性即可或者用以下方法
'引用Microsoft Scripting Rumtime
Private Sub Form_Load()
    Dim Fso As New FileSystemObject
    Dim Fd As Folder
    Dim Fd1 As Folder
    Dim Fl As File
    Set Fd = Fso.GetFolder("C:")
    For Each Fd1 In Fd.SubFolders
        Debug.Print Fd1.Name
    Next
    For Each Fl In Fd.Files
        Debug.Print Fl.Name
    Next
End Sub

Answer 4

不过FileListBox只能获取文件夹下所有文件