Dim RootPath As String
  Dim FoundDir As String

  RootPath = "c:\"
  FoundDir = Dir(RootPath, vbDirectory)
       If ((FoundDir <> ".") And (FoundDir <> "..")) Then '---跳过当前的目录"."及上层目录“..”
请问当前目录是"c:\" 还是其他什么目录？ 上层目录是针对谁的上层目录？
盼回贴

当前目录是 C:\
上层目录是  ，在WINDOWS（含 DOS ） 下面，C:\ 已是顶层目录了。所以 在各个根目录下不存在的 .. 目录

当你进入 子目录后，就存在 .. 上层目录了。

这个代码本来就是针对 子目录设计，然后兼容 顶层目录的。

多谢

多谢