Question

VB怎样将当前目录下的文件列出来

VB中怎样将当前盘符下的所有文件列出来，就像DOS下的DIR/S一样。
我需要的是将当前目录下（包括子目录）的所有文件，即象DOS下的DIR参数/S

Answer 1

先点击工程->引用->Microsoft scripting Runtime 然后点击确定，将代码拷上去就可以了
Option Explicit
Dim i As Integer
Private Sub Form_Load()
Call Tfile("E:\")' 这里是E盘下的文件总数
Me.Caption = "文件总数：" & i
End Sub

Sub Tfile(ByVal Folder As String)
Dim fso As New FileSystemObject
Dim objFile, objFolder
Set objFolder = fso.GetFolder(Folder)
For Each objFile In objFolder.Files
Call TFolder(objFile.Path)
Next
For Each objFolder In objFolder.SubFolders
Call Tfile(objFolder)
Next
End Sub

Sub TFolder(ByVal FileName As String)
i = i + 1
Me.List1.AddItem FileName
End Sub

Answer 2

你可以用用个file控件嘛，然后把他的visable 设置成 false ，然后你就可以用个for 循环把它的文件名依次读出来啦。

Answer 3

function getSubForderOrFile(path)

Dim fs, f, f1, fc, s, k
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(path)

Set sfd = f.subFolders
For Each f1 In sfd

debug.print f1.Name
getSubForderOrFile(path & "\" & f1.Name)
Next

Set fc = f.Files
For Each f1 In fc

debug.print f1.Name

Next
end function

Answer 4

递归
For...Next
Do...Loop
都可以的