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

来源：百度知道 编辑：UC知道 时间：2024/07/04 11:43:53
VB中怎样将当前盘符下的所有文件列出来，就像DOS下的DIR/S一样。
我需要的是将当前目录下（包括子目录）的所有文件，即象DOS下的DIR参数/S

先点击工程->引用->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

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

function getSubForderOrFile(path)

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

Set sfd = f.subFolders
Fo