发信人: ll99(Jade)
整理人: winsy(2003-03-05 16:21:03), 站内信件
|
【 在 jianxuewaner 的大作中提到：】
:【 在 zhxudong 的大作中提到：】
::【 在 jianxuewaner 的大作中提到：】
:::比如我的 C:/my documents下有一二十个文件夹。
:::......
::
:
:......
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 |
|