用WSH对象获取系统目录

你是不是很想知道操作系统相关的一些特殊目录位置？用WSH十分方便
请先引用 Windows Script Host Object Model    (%system%\wshom.ocx)

Sub PrintSpecialFolders()
'goodidea 2004/10/06

    Dim wsh As New WshShell
    Dim i As Integer

    For i = wsh.SpecialFolders.Count - 1 To 0 Step -1
        Debug.Print wsh.SpecialFolders(i)
    Next

    Debug.Print wsh.SpecialFolders("Desktop") 　　'获得桌面目录
　　Debug.Print wsh.SpecialFolders("Fonts") 　　'获得系统字体目录
　　Debug.Print wsh.SpecialFolders("Programs") 　　'获得程序菜单目录
　　Debug.Print wsh.SpecialFolders("StartUp") 　　'获得程序启动目录
　　Debug.Print wsh.SpecialFolders("Recent") 　　'获得最近使用文件目录
　　Debug.Print wsh.SpecialFolders("FAVORITES") 　　'获得收藏夹目录
　　Debug.Print wsh.SpecialFolders("SENDTO") 　　'获得发送到目录
　　Debug.Print wsh.SpecialFolders("NETHOOD") 　　'获得网络邻居目录
　　Debug.Print wsh.SpecialFolders("AppData") 　　'获得微软程序数据目录

end Sub