【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:windowssystem32")
End Sub