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 &; "\" '不是,则加上 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