why???为什么？？

Question

Temp = Dir(“d:\*.doc”)
                
                Intcount = 0
                 
                 Do Until Temp = ""
                    Temp = Dir
                    Debug.Print Temp
                    Intcount = Intcount + 1
                   End If
                 Loop现有的为三个文件
1.doc
2.doc
3.doc
可DEBUG打印的是
2.doc
3.doc
            (此为空，但有数据）这是为什么？？

Answer 1

Dim temp As String
temp = Dir("d:\*.doc")
                Intcount = 0
                 Debug.Print temp
                 Do Until temp = ""
                    temp = Dir
                    Debug.Print temp
                    Intcount = Intcount + 1
                   
                 Loop

Answer 2

Temp = Dir(“d:\*.doc”)
                
                Intcount = 0
                 Debug.Print Temp
                 Do Until Temp = ""
                    Temp = Dir
                    Debug.Print Temp
                    Intcount = Intcount + 1
                Loop

Answer 3

' 显示 C:\ 目录下的名称。
MyPath = "c:\"   ' 指定路径。
MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
Do While MyName <> ""   ' 开始循环。
   ' 跳过当前的目录及上层目录。
   If MyName <> "." And MyName <> ".." Then
      ' 使用位比较来确定 MyName 代表一目录。
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         Debug.Print MyName   ' 如果它是一个目录，将其名称显示出来。
      End If
   End If
   MyName = Dir   ' 查找下一个目录

Answer 4

还是有空数据而且如果按你这们的话在DO UNTIL内的处理就无法处理了
例：Dim temp As String
temp = Dir("d:\*.doc")
                Intcount = 0
                 Debug.Print temp
                 Do Until temp = ""
                    temp = Dir
                    list.additem temp          --------这里还是不能显示1
                    Intcount = Intcount + 1
                   
                 Loop

Answer 5

你是因为查出第一个文件后，没有打印出来而已。并且当最后一个3.txt打印后，Do Until Temp = ""这句话判断为否，再进入循环查出一个空值，所以最后会有一个空值。

Answer 6

intcount = 0
        Temp = Dir("F:\TEMP\*.txt")
        Do
         
            
            Debug.Print Temp
            intcount = intcount + 1
            Temp = Dir
        Loop While Temp <> ""

Answer 7

intcount = 0
        Temp = Dir("F:\TEMP\*.txt")
        Do While Temp <> ""            Debug.Print Temp
            intcount = intcount + 1
            list.additem temp          
            Temp = Dir
        Loop

Answer 8

有啊，        Do While Temp <> ""  保证不加空行            Debug.Print Temp  '保证不空就打出来
            intcount = intcount + 1
            list.additem temp
          
            Temp = Dir
        Loop