Question

vb编写怎么获取一个文件夹里面所有的文件的文件名？可否用LOOP函数循环获取

如我需要获取D:\123文件夹里面所有文件的文件名，放在一个记事本文件里面，源码需要怎么写？

Answer 1

Dim d As String
Open App.Path & "\123.txt" For Output As #1
d = Dir("d:\123\*.*")
Do Until d = ""
    Print #1, d
    d = Dir
Loop
Close #1