怎樣遍歷一個目錄下的所有文件?我不要用 api! 謝謝!!

Question

Sub ShowFileList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub

Answer 1

dim m as string
m=dir("f:\*.txt")
do until m=""
   m=dir()
loop

Answer 2

同意limit的做法,如果要遍历该目录下的所有文件,要使用递归函数

Answer 3

limit(梦锦) 做的是对的，这方面的源码网上很多。

Answer 4

用DIR最简单了
DIR "*.*"
美执行一次就读出一个文件名