Question

VBA，怎么判断指定路径文件夹是否存在子文件夹（非文件）？

给代码测试谢谢

Answer 1

以下代码即可判定指定文件夹是否存在：

Sub 判定指定文件夹下是否有子文件夹()
Dim Pa$, Na$
Pa = "D:\123" '指定文件夹
Na = Dir(Pa & "\*", vbDirectory)
While Na <> ""
   If InStr(Na, ".") = 0 Then
      MsgBox Pa & "下有子文件夹"
      Exit Sub
   End If
   Na = Dir
Wend
MsgBox Pa & "下无子文件夹"
End Sub