显示桌面所有文件列表

joeyyang5

Sub 获取桌面文件列表()
Dim objFolderItem As Object, objItem As Object, Str As String
    Set objFolderItem = CreateObject("Shell.Application").Namespace(16).Self '编码16表示桌面
    For Each objItem In CreateObject("Shell.Application").Namespace(16).Items '遍历旧面的文件
        Str = Str & objItem.Name & Chr(10)  '将桌面的所有文件串成一个字符串
    Next
    CreateObject("WScript.Shell").Popup Str '弹出提示（如果超过1024字符也可以显示）
End Sub