紫水晶编程技术论坛 - 努力打造成全国最好的编程论坛

 找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 3285|回复: 6

[求助] 怎么能取到这个文件夹的名字?

  [复制链接]

90

主题

564

帖子

2

精华

初来乍到

Rank: 1

积分
3262
发表于 2011-12-2 21:01:32 | 显示全部楼层 |阅读模式
比如在d盘下有一个文件夹a,在a这个文件夹下有个文件夹b,在b这个文件夹里有三个文件夹,分别是a1,a2,a3

我怎么能用VB来取到这三个文件夹的名字?(也就是a1,a2,a3)

谢谢大家~

4

主题

41

帖子

0

精华

铜牌会员

Rank: 2Rank: 2

积分
296
QQ
发表于 2011-12-3 00:43:02 | 显示全部楼层
用dir函数

4

主题

41

帖子

0

精华

铜牌会员

Rank: 2Rank: 2

积分
296
QQ
发表于 2011-12-3 00:47:14 | 显示全部楼层
  1. ' 显示 C:\ 目录下的名称。
  2. MyPath = "c:"   ' 指定路径。
  3. MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
  4. Do While MyName <> ""   ' 开始循环。
  5.    ' 跳过当前的目录及上层目录。
  6.    If MyName <> "." And MyName <> ".." Then
  7.       ' 使用位比较来确定 MyName 代表一目录。
  8.       If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
  9.          Debug.Print MyName   ' 如果它是一个目录,将其名称显示出来。
  10.       End If
  11.    End If
  12.    MyName = Dir   ' 查找下一个目录。
  13. Loop
复制代码

4

主题

41

帖子

0

精华

铜牌会员

Rank: 2Rank: 2

积分
296
QQ
发表于 2011-12-3 04:22:10 | 显示全部楼层
本帖最后由 supertankhzt 于 2011-12-3 04:29 编辑

上面的是MSDN里的示例代码
稍微改了一下
  1. Dim MyName As String, MyPath As String, i As Integer, FileName() As String
  2. MyPath = "D:\a"
  3. MyName = Dir(MyPath, vbDirectory)
  4. Do While MyName <> ""
  5.     If (MyName <> "." And MyName <> "..") And (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
  6.         ReDim Preserve FileName(i)
  7.         FileName(i) = MyName
  8.         i = i + 1
  9.     End If
  10.     MyName = Dir
  11. Loop
复制代码
执行后MyPath目录下的所有非隐藏非系统文件夹将保存到FileName数组里
123.jpg

点评

不但文件夹的名字出来了,而且所有文件的名字也出来了,但我只想要文件夹的名字  发表于 2011-12-9 00:06

71

主题

421

帖子

2

精华

钻石会员

Rank: 6Rank: 6

积分
4123
发表于 2011-12-3 10:34:27 | 显示全部楼层
用fso就可以

90

主题

564

帖子

2

精华

初来乍到

Rank: 1

积分
3262
 楼主| 发表于 2011-12-4 07:44:15 | 显示全部楼层
ls几位很不错

我先试试

3q

4

主题

41

帖子

0

精华

铜牌会员

Rank: 2Rank: 2

积分
296
QQ
发表于 2011-12-9 14:45:22 | 显示全部楼层
我这只出来文件夹,你是不是写漏了vbDirectory?
QQ截图20111209143840.jpg
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

手机版|Archiver|紫水晶工作室 ( 粤ICP备05020336号 )

GMT+8, 2020-8-15 10:03 , Processed in 0.040319 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表