怎么判断一个目录下有没有子目录啊？

Question

用API,findfirstfile(),findnextfile(). 

Answer 1

Dir 函数，加上“目录”属性再调用。

Answer 2

我就浪费大家点东西
本示例使用 Dir 函数来检查某些文件或目录是否存在。
Dim MyFile, MyPath, MyName' 返回“WIN.INI”（如果该文件存在）。
MyFile = Dir("C:\WINDOWS\WIN.ini")

' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，
' 函数将返回按条件第一个找到的文件名。
MyFile = Dir("C:\WINDOWS\*.ini")

' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。
MyFile = Dir

' 返回找到的第一个隐式 *.TXT 文件。
MyFile = Dir("*.TXT", vbHidden)' 显示 C:\ 目录下的名称。
MyPath = "c:\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一个目录，将其名称显示出来。
End If
End If
MyName = Dir ' 查找下一个目录。
Loop
在vb5.0里的联机手册里有很多

Answer 3

窗体上放一目录列表框。
if Dir1.ListCount=0 then
               msgbox "没有子目录啦！",,"袁飞在测试呢！"
end if

Answer 4

用dir("*.*",vbdirectory) ,对返回的目录记数，排
除返回的"."和".."，再用
    If GetAttr(Dir("*.*", vbDirectory)) And vbDirectory Then
    'yourself code.....
    endif