按键精灵开发教程：获取特殊文件夹路径来源：按键学院【按键精灵】电脑里有些特别的文件夹，它的路径并不是每台电脑都一样。

例如，有很多游戏喜欢把一些配置文件放在，“我的文档”文件夹下但是“我的文档”文件夹的路径，并不是每台机子都一样的，例如，在一台win7机子上，它的路径是这样：C:\Documents and Settings\ceshiji\My Documents在一台xp机子上，它的路径是这样：D:\Backup\我的文档看起来十分头疼~实际上一行代码就可以解决这个问题q97012791童鞋收集了50多个特殊文件夹的路径获取方式，以后再也不用担心获取不到特殊文件夹路径了~点32个赞~~获取方法MsgBox CreateObject("Shell.Application").Namespace(&H3).Self.Path“控制面板”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H4).Self.Path“打印机”的桌面图标MsgBox CreateObject("Shell.Application").Namespace(&H5).Self.Path当前用户的“我的文档”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H6).Self.Path当前用户的“收藏夹”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H7).Self.Path当前用户的“启动”菜单文件夹MsgBox CreateObject("Shell.Application").Namespace(&H8).Self.Path当前用户的“文档”菜单文件夹MsgBox CreateObject("Shell.Application").Namespace(&H9).Self.Path当前用户的“发送到”文件夹MsgBox CreateObject("Shell.Application").Namespace(&HA).Self.Path回收站MsgBox CreateObject("Shell.Application").Namespace(&HB).Self.Path当前用户的“开始”菜单文件夹MsgBox CreateObject("Shell.Application").Namespace(&HC ).Self.Path logical"My Documents"desktop icon MsgBox CreateObject("Shell.Application").Namespace(&HD).Self.Path当前用户的“音乐文件”文件夹MsgBox CreateObject("Shell.Application").Namespace(&HE).Self.Path"My Videos" folderMsgBox CreateObject("Shell.Application").Namespace(&H10).Self.Path当前用户的“桌面”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H11).Self.Path“我的电脑”桌面图标MsgBox CreateObject("Shell.Application").Namespace(&H12).Self.Path“网上邻居”的桌面图标MsgBox CreateObject("Shell.Application").Namespace(&H13).Self.Path当前用户的“网络连接”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H14).Self.Path“系统字体”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H15).Self.Path系统中存储文档模块的文件夹MsgBox CreateObject("Shell.Application").Namespace(&H16).Self.Path所有用户的“开始菜单”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H17).Self.Path所有用户的“程序”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H18).Self.Path所有用户的“启动”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H19).Self.Path所有用户的“桌面”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H1A).Self.Path当前用户的“应用数据”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H1B).Self.Path当前用户的“网络打印机”桌面图标MsgBox CreateObject("Shell.Application").Namespace(&H1C).Self.Path当前用户的“应用数据”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H1D).Self.Path non localized startupMsgBox CreateObject("Shell.Application").Namespace(&H1E).Self.Path non localized common startup MsgBox CreateObject("Shell.Application").Namespace(&H1F).Self.Path所有用户的“我的收藏”夹文件MsgBox CreateObject("Shell.Application").Namespace(&H20).Self.Path当前用户IE的“Cache”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H22).Self.Path IE的“历史记录”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H23).Self.Path所有用户的“应用数据”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H24).Self.Path系统中的Windows目录MsgBox CreateObject("Shell.Application").Namespace(&H25).Self.Path WINDOWS系统的“System32”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H26).Self.Path“程序文件”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H27).Self.Path当前用户的“图片收藏”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H28).Self.Path当前用户的“用户配置文件”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H29).Self.Path x86 system directory on RISC MsgBox CreateObject("Shell.Application").Namespace(&H2A).Self.Path x86 C:\Program Files on RISC MsgBox CreateObject("Shell.Application").Namespace(&H2B).Self.Path系统程序共用组件文件夹MsgBox CreateObject("Shell.Application").Namespace(&H2C).Self.Path x86 Program Files\Common on RISC MsgBox CreateObject("Shell.Application").Namespace(&H2D).Self.Path所有用户的“模块”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H2E).Self.Path所有用户的“我的文档”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H2F).Self.Path所有用户的“管理工具”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H30).Self.Path当前用户的“管理工具”文件夹MsgBox CreateObject("Shell.Application").Namespace(&H31).Self.Path Network and Dial-up Connections MsgBox CreateObject("Shell.Application").Namespace(&H35).Self.Path All Users\My MusicMsgBox CreateObject("Shell.Application").Namespace(&H36).Self.Path All Users\My PicturesMsgBox CreateObject("Shell.Application").Namespace(&H37).Self.Path All Users\My VideoMsgBox CreateObject("Shell.Application").Namespace(&H38).Self.Path Resource DirecotryMsgBox CreateObject("Shell.Application").Namespace(&H39).Self.Path Localized Resource Direcotry MsgBox CreateObject("Shell.Application").Namespace(&H3A).Self.Path Links to All Users OEM specific appsMsgBox CreateObject("Shell.Application").Namespace(&H3B).Self.Path USERPROFILE\Local Settings\Applic Data\Microsoft\CD BurningMsgBox CreateObject("Shell.Application").Namespace(&H3D).Self.Path Computers Near Me (computered fr Workgroup membership)组合命令&H8000combine with CSIDL_ value to force creation in SHGetFolderPath()组合命令&H4000combine with CSIDL_ value to retur unverified folder path组合命令&H1000combine with CSIDL_ value to insur代码：网页源文件=取网页源码("/forum.php") TracePrint 网页源文件Function 取网页源码(URL)Set objXML=CreateObject("Microsoft.XMLHTTP")objXML.Open "Get", Url, FalseobjXML.sendIf objXML.readyState=4 then取网页源码=objXML.ResponseTextEnd IfobjXML.AbortSet objXML = NothingEnd Function代码解析：objXML.Open "Get", Url, FalseXMLHTTP对象的Open方法，它的参数是这样的 bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword 一共五个参数：bstrMethod：数据传送方式，即GET或POST。