用Dir递归查找!去搜索以前的贴子
解决方案 »
- vb输出文本格式处理
- 怎样获取打印机的当前状态(联机、暂停、缺纸等),怎样将打印失败的任务转移到其它打印机上?
- 重复的text内容请达人帮忙精简 送分哦
- 怎样用VB写事务控制程序?
- 如果解决水晶报表的多行问题.
- vb条码打印
- 短信的服务端是什么原理?
- 將 Excel 的文件导入 Access文件时,下面的代码,需要引用什么对象呢?
- 50分询问!!VB6.0利WMI编程问题,访问windows XP操作系统出错(利用xp操作系统开发的)!
- 请问:在VB6中如何实现对FILESYSTEMOBJECT的引用?
- 怎样做到从oracle中select的数据以表的形式显示??
- 用VB能对access文件加密吗?
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