用dir枚举目录下的文件名怎么老是会少一个文件

Question

Dim fname,ab As String
Dim foldername As Stringfoldername = "d:\"
fname = Dir(foldername & "*.*", vbNormal) '7 16Do Until fname = ""
DoEvents
Sleep 1fname = Dir()
ab = ab + foldername + fname + vbCrLf '列举文件名
text1=ab
试过无数次了，老是会丢掉一个

Answer 1

Private Sub Form_Load()
Dim fname, ab As String
Dim foldername As Stringfoldername = "d:\"
fname = Dir(foldername & "*.*", vbNormal) '7 16
ab = ab + foldername + fname + vbCrLf '列举文件名Do Until fname = ""
DoEventsfname = Dir()
ab = ab + foldername + fname + vbCrLf '列举文件名
Text1 = abLoop
End Sub红色的那个文件名没有加进去

Answer 2

Dim fname,ab As String
Dim foldername As Stringfoldername = "d:\"
fname = Dir(foldername & "*.*", vbNormal) '7 16
if fname<>""then ab=foldername & fname &vbcrlf
Do Until fname = ""
DoEvents
Sleep 1fname = Dir()
ab = ab + foldername + fname + vbCrLf '列举文件名
text1=ab

Answer 3

Dim fname,ab As String
Dim foldername As Stringfoldername = "d:\"Do 
DoEvents
Sleep 1
fname = Dir()
ab = ab + foldername + fname + vbCrLf '列举文件名
Until fname=""
text1=ab

Answer 4

本帖最后由 bcrun 于 2012-03-21 17:28:39 编辑

  

Answer 5

谢谢!这个最精准.不然还会多个空文件夹名.
就是我那个两句:fname = Dir()
ab = ab + foldername + fname + vbCrLf 
要互换下先后位置