1如何实现将目录下所有的文件添加到list1控件中

Question

1如何实现将目录下所有的文件添加到list1控件中
2.如何实现将目录下所有的子目录路径添加到list1控件中

Answer 1

http://zhidao.baidu.com/question/3241952.html
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

里面有
If tFindData.dwFileAttributes = &H10 Then '目录 

Answer 3

Private Sub Command1_Click() ' 显示 C:\ 目录下的文件名称。
Dim FileNames As String
FileNames = Dir("c:\", vbNormal)  '显示文件和文件夹
Do While FileNames <> ""
List1.AddItem FileNames
FileNames = Dir '再次调用dir函数,此时可以不带参数
Loop
End Sub
Private Sub Command2_Click()
' 显示 C:\ 目录下的名称。
MyPath = "c:\"   ' 指定路径。
MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
Do While MyName <> ""   ' 开始循环。
   ' 跳过当前的目录及上层目录。
   If MyName <> "." And MyName <> ".." Then
      ' 使用位比较来确定 MyName 代表一目录。
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
        List2.AddItem MyName   ' 如果它是一个目录，将其名称显示出来。
      End If
   End If
   MyName = Dir   ' 查找下一个目录。
LoopEnd Sub