Dir("c:\", vbDirectory)可以返回c:\下的子目录,怎么用dir函数返回"c:\temp"目录下的子目录?
解决方案 »
- ezVidC60的问题,连接两个摄像头弹出视频源选择窗口,怎么能实现自动选择视频源呢?
- VB中关于访问文件问题?
- sql难题,用inner join时 如何把时间限制加进去,也就是如何加如别的条件
- 怎样将msflexgrid控件中的数据清空?
- 使用ADO来连接Visual foxpro的表,怎么样才能彻底删除Visual Foxpro表中的记录?而不是打上标志?
- 远程发送数据问题?VB+SQL server 2000
- DATAREPORT有没有办法让一行显示的内容增加!!!!!!
- 请版主帮我结贴!谢谢!
- 如何当程序被重复启动时激活已启动的窗口并结束自身。
- text文本如何设置属性为不可修改?
- 我在form_load()里可以对数据库进行查询吗?
- 100分相送,急
tmp = Dir("c:\", vbDirectory)
Do While tmp <> "" ' 开始循环。
If tmp <> "." And tmp <> ".." Then
' 使用位比较来确定 tmp 代表一目录。
Debug.Print tmp ' 如果它是一个目录,将其名称显示出来。
End If
tmp = Dir ' 查找下一个目录。
Loop
dim tmp as string
tmp = Dir("c:\", vbDirectory)
Do While tmp <> "" ' 开始循环。
If tmp <> "." And tmp <> ".." Then
' 使用位比较来确定 tmp 代表一目录。
If (GetAttr("c:\"& tmp) And vbDirectory) = vbDirectory Then
Debug.Print tmp ' 如果它是一个目录,将其名称显示出来。
End If
End If
tmp = Dir ' 查找下一个目录。
Loop
我说的是在c:\temp目录下的子文件夹,不是c:\下的子文件夹!!!
str = Dir("c:\temp\*", vbDirectory)
Do Until str = ""
If GetAttr("c:\temp\" & str) = vbDirectory Then Print str
str = Dir(, vbDirectory)
Loop