WScript.Shell对象SpecialFolders属性

时　间:2017-04-30 10:39:39
作　者:易勋   ID：35404  城市：上海
摘　要:WScript.Shell对象SpecialFolders属性
正　文:

WshShell对象的SpecialFolders属性返WshSpecialFolders 对象，该对象是一个特殊文件夹集合，其中包含整套Windows特殊文件夹

Sub SpecialFoldersInfo()

    Dim sf As Object

    Set sf = CreateObject("Wscript.shell").SpecialFolders

    Debug.Print "公共桌面： " & sf("AllUsersDesktop")

    Debug.Print "公共程式： " & sf("AllUsersStartMenu")

    Debug.Print "公共程序： " & sf("AllUsersPrograms")

    Debug.Print "公共启动： " & sf("AllUsersStartup")

    Debug.Print "桌面： " & sf("Desktop")

    Debug.Print "收藏： " & sf("Favorites")

    Debug.Print "字体： " & sf("Fonts")

    Debug.Print "我的文档： " & sf("MyDocuments")

    Debug.Print "网络： " & sf("NetHood")

    Debug.Print "打印机： " & sf("PrintHood")

    Debug.Print "程序： " & sf("Programs")

    Debug.Print "最近： " & sf("Recent")

    Debug.Print "发给： " & sf("SendTo")

    Debug.Print "开始菜单： " & sf("StartMenu")

    Debug.Print "启动： " & sf("Startup")

    Debug.Print "模板： " & sf("Templates")

    Debug.Print "应用程序数据： " & sf("AppData")

End Sub