VB:获取c:\所有文件夹及子文件夹

来源：百度知道 编辑：UC知道 时间：2024/05/18 08:14:05
各位能否给个代码（或程序/代码下载地址）
需要将C:\下或指定目录下的所有目录及其子目录列出并在list控件中显示，在列举目录时程序最好能够不假死，谢谢啦，急用。

如果可行再加100分
可能出现了一些误解哈 我的意思是单击按钮Command1则在List1中显示C:\的所有目录及子目录如
c:\a
c:\b
c:\a\a
c:\b\b\b
C:\windows
c:\windows\system32
c:\Windows\system32\wbem\
等等..

我的这个方法需要在工程中引用Microsoft scripting runtime库，否则会出错的。

然后在窗体上创建一个listbox控件与一个command控件。
以下下代码可行。

Private Sub get_folders(ByRef List1 As ListBox, ByVal path As String)
Dim fso As New Scripting.FileSystemObject
Dim fd As Scripting.Folder
Dim fd_1 As Scripting.Folder

Set fd = fso.GetFolder(path)

For Each fd_1 In fd.SubFolders
DoEvents
List1.AddItem fd_1.path
get_folders List1, fd_1.path
Next
End Sub
Private Sub Command1_Click()
get_folders List1, "c:\"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End
End Sub

如果调试失败的话，请帖上你的邮箱，我把源文件发过来。

用FAT32或NFTS扫描一下磁盘通用卷错误

用FAT32或NFTS扫描一下磁盘通用卷错误
用FAT32或NFTS扫描一下磁盘通用卷错误
用FAT32或NFTS扫描一下磁盘通用卷错误
用FAT32或NFTS扫描一下磁盘通用卷错误

建个穿体``
在上面画Drivelistbox drilistbox filelistbox
控件名字别改了`~
在写以下代码~~
Private Sub Dir1_Change()
File1.Path = Dir1.Path
En