[求助]：这段怎么写全？
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
我不明白是什么意思
