VBA48集的问题

雄鹰2013

求助老师：

Sub 遍历子文件()
  Dim Filename As String, mypath As String, k As Integer
  mypath = ThisWorkbook.Path & "\2011年报表\"
  Range("A1:A10") = ""
  Filename = Dir(mypath, vbDirectory)
  Do
    If Not Filename Like "*.*" Then
      k = k + 1
      Cells(k, 1) = Filename
    End If
    Filename = Dir
  Loop Until Filename = ""
End Sub

代码运行的时候 filename在本地窗口出现了"." 和".."。这出现的点是代表本级文件夹和上级文件夹吗？如果是，为什么不能将其文件夹的名称显示出来而用点代替了呢？
我试了一下在“VBA80第48集_文件夹基本操作”文件夹外面又套了一个文件夹的时候，为什么不出现"..."的情况？

妞叫七七

你真会联想，哪有...的表示方法，只有本文件路径和父级路径

妞叫七七

回错了。。。