vb 用dir显示资料夹下每一层的档案名称

命令行的方法是 DIR /S

用递归吧，每次获取目录下的文件和子文件夹名后，再用递归搜索每个子文件夹

希望你还是用最简单的方法来解决问题~不必过于追求必需用某种方法实现
编程的目的是将 复杂问题简单化~
Private Sub Command1_Click()
Shell "cmd /c dir /s z:\ > z:\1.txt "
Open "z:\1.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Dim i As Integer
Do While Not EOF(1)
On Error Resume Next
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = Lines
End Sub

如果不想在text显示出来 直接保存成一个文本只要一句
Shell "cmd /c dir /s z:\ > z:\1.txt "

用DOS是比较安全的做法~
==================
下面这个就是你要的DIR~不过如果目录树过多~就会导致错误~甚至蓝屏~
command list label各一

Public Function GetExtName(strFileName As String) As String
Dim strTmp As String
Dim strByte As String
Dim i As Long
For i = Len(strFileName) To 1 Step -1
strByte = Mid(strFileName, i