怎么能取到这个文件夹的名字？

ok100fen

比如在d盘下有一个文件夹a，在a这个文件夹下有个文件夹b，在b这个文件夹里有三个文件夹，分别是a1,a2,a3

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

谢谢大家~

supertankhzt

用dir函数

supertankhzt

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
    

复制代码

supertankhzt

上面的是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数组里

yxd199512041

用fso就可以

ok100fen

ls几位很不错

我先试试

3q

supertankhzt

我这只出来文件夹，你是不是写漏了vbDirectory？