Private Sub searchdir()
　Dim spath As String, sdir As String
　Dim booldir As Boolean '是否有子目录的标志
　booldir = False '初始化标志
　spath = Dir1.Path '选择路径
　If Right(spath, 1) <> "\" Then '判断路径最后是否以\结尾
　　spath = spath &amp; "\" '不是,则加上
　　sdir = Dir(spath & "*.*", vbDirectory) '得到当前路径下的所有文件和目录
　　While sdir <> "" '如果不为空
　　　If sdir <> "." And sdir <> ".." Then '并且不是这两种文件夹
　　　　booldir = True '那么,该目录下有子目录
　　　　MsgBox "该目录下有子目录:" & sdir '显示信息
　　　End If
　　　sdir = Dir()
　　Wend
　　If Not booldir Then '标志为假,该目录下没有子目录
　　　MsgBox "该目录下没有子目录"
　　End IF
　End IF
End Sub





我不明白是什么意思

是不是要先指定个目录什么的啊？？

哪个地方有介绍啊