【VB技巧】VB获取指定目录、文件夹文件列表

VB 获取指定目录、文件夹文件详细列表，VB 获取指定目录、文件夹文件列表，VB 获取指定目录文件详细列表，VB 获取指定文件夹文件详细列表，VB 获取指定目录文件列表，VB 获取指定文件夹文件列表，VB 获取目录、文件夹文件详细列表，VB 获取目录、文件夹文件列表，VB 获取目录文件列表，VB 获取文件夹文件列表，VB 获取目录、文件夹列表，VB 获取目录列表，VB 获取文件夹列表，VB 目录详细文件列表，VB 文件夹详细文件列表，VB 目录文件列表，VB 文件夹文件列表，VB 目录列表，VB 文件夹列表。

VB获取指定目录、文件夹文件列表：

Sub ShowFolderList(folderspec) '复杂版
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        s = s & f1.Name
        s = s & vbCrLf
    Next
    MsgBox s
End Sub

Sub ShowFolderList(dr) '简洁版
    Dim f
    For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(dr).Files
        dr = dr & f.Name & vbCrLf
    Next
    MsgBox dr
End Sub

Private Sub Command1_Click()
ShowFolderList ("c:\windows\system32\")
End Sub

文章目录