首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB获取文件名解决办法

2013-01-26 
VB获取文件名有2个问题对于某些人应该小菜:1、获取某地址下所有文件夹名称(不带路径),添加到Combox12、获取C

VB获取文件名
有2个问题对于某些人应该小菜:
1、获取某地址下所有文件夹名称(不带路径),添加到Combox1
2、获取Combox1选中的文件夹里的所有TXT文件,添加到Combox2
[解决办法]
Private Sub Command1_Click()
    Dim fo As New Scripting.FileSystemObject
    
    Dim fp As Scripting.Folder
    Dim fs As Scripting.Folder
    
    Set fp = fo.GetFolder("e:")
    For Each fs In fp.SubFolders
        MsgBox fs.Name
    Next
    
End Sub

[解决办法]

Dim d As String
Private Sub Combo1_Click()
    Dim fo, fp, fs
    Set fo = CreateObject("Scripting.FileSystemObject")
    Set fp = fo.GetFolder(d + "" + Combo1.Text)
    Combo2.Clear
    For Each fs In fp.Files
        If LCase(Right(fs.Name, 4)) = ".txt" Then
            Combo2.AddItem fs.Name
        End If
    Next
    Combo2.ListIndex = 0
    Set fs = Nothing
    Set fp = Nothing
    Set fo = Nothing
End Sub

Private Sub Command1_Click()
    Dim fo, fp, fs
    d = "d:"
    Set fo = CreateObject("Scripting.FileSystemObject")
    Set fp = fo.GetFolder(d)
    Combo1.Clear
    For Each fs In fp.SubFolders
        Combo1.AddItem fs.Name
    Next
    Combo1.ListIndex = 0
    Set fs = Nothing
    Set fp = Nothing
    Set fo = Nothing
End Sub

热点排行