VB获取盘符里所有文件夹的名称

Private Sub Form_Load()
Dim sB As String
Dim sF As String
Combo1.Clear
sB = “c:”
sF = Dir(sB, vbDirectory) '寻找第一项
Do While sF <> “” '跳过当前的目录及上层目录
If sF <> “.” And sF <> “…” Then
If (GetAttr(sB + sF) And vbDirectory) = vbDirectory Then
Combo1.AddItem sF '如果它是一个目录，将其名称添加到Combo1列表
List1.AddItem sF
End If
End If
sF = Dir '查找下一个目录
Loop
Combo1.ListIndex = 0 '选择第一项
End Sub
'----------------------------------------------------------
'获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹)

Private Sub ShowFileList(folderspec) '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹)
Dim fs, f, f1, s, fc
List1.Clear
Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.getfolder(folderspec)
Set fc = f.SubFolders
For Each f1 In fc
If InStr(f1.Name, “.”) = 0 Then
List1.AddItem f1.Name
End If
Next
End Sub
'---------------------------------------------------------

'获取一个目录里所有文件名（非文件夹名）
Private Sub Form_Load()
Dim fname As String,student As String,folderName As String
folderName = “D:”
fname = Dir(folderName & “*.txt”, 7)
List1.Clear
Do
If fname = “” Then Exit Do
List1.AddItem fname
fname = Dir()
Loop
End Sub