按键精灵开发教程：获取特殊文件夹路径.docx

按键精灵开发教程：获取特殊文件夹路径来源：按键学院 【按键精灵】电脑里有些特别的文件夹，它的路径并不是每台电脑都一样。例如，有很多游戏喜欢把一些配置文件放在，“我的文档”文件夹下但是“我的文档”文件夹的路径，并不是每台机子都一样的，例如，在一台win7机子上，它的路径是这样： C:Documents and SettingsceshijiMy Documents在一台xp机子上，它的路径是这样：D:Backup我的文档看起来十分头疼实际上一行代码就可以解决这个问题q97012791童鞋收集了50多个特殊文件夹的路径获取方式，以后再也不用担心获取不到特殊文件夹路径了点 32个赞获取方法命令代码命令说明MsgBoxCreateObject(Shell.Application).Namespace(&H0).Self.Path“桌面”的桌面图标MsgBoxCreateObject(Shell.Application).Namespace(&H1).Self.PathIE浏览器的桌面图标MsgBoxCreateObject(Shell.Application).Namespace(&H2).Self.Path当前用户的“程序”菜单文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H3).Self.Path“控制面板”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H4).Self.Path“打印机”的桌面图标MsgBoxCreateObject(Shell.Application).Namespace(&H5).Self.Path当前用户的“我的文档”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H6).Self.Path当前用户的“收藏夹”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H7).Self.Path当前用户的“启动”菜单文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H8).Self.Path当前用户的“文档”菜单文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H9).Self.Path当前用户的“发送到”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&HA).Self.Path回收站MsgBoxCreateObject(Shell.Application).Namespace(&HB).Self.Path当前用户的“开始”菜单文件夹MsgBoxCreateObject(Shell.Application).Namespace(&HC ).Self.PathlogicalMy Documentsdesktop iconMsgBoxCreateObject(Shell.Application).Namespace(&HD).Self.Path当前用户的“音乐文件”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&HE).Self.PathMy Videos folderMsgBoxCreateObject(Shell.Application).Namespace(&H10).Self.Path当前用户的“桌面”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H11).Self.Path“我的电脑”桌面图标MsgBoxCreateObject(Shell.Application).Namespace(&H12).Self.Path“网上邻居”的桌面图标MsgBoxCreateObject(Shell.Application).Namespace(&H13).Self.Path当前用户的“网络连接”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H14).Self.Path“系统字体”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H15).Self.Path系统中存储文档模块的文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H16).Self.Path所有用户的“开始菜单”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H17).Self.Path所有用户的“程序”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H18).Self.Path所有用户的“启动”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H19).Self.Path所有用户的“桌面”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H1A).Self.Path当前用户的“应用数据”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H1B).Self.Path当前用户的“网络打印机”桌面图标MsgBoxCreateObject(Shell.Application).Namespace(&H1C).Self.Path当前用户的“应用数据”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H1D).Self.Pathnon localized startupMsgBoxCreateObject(Shell.Application).Namespace(&H1E).Self.Pathnon localized common startupMsgBoxCreateObject(Shell.Application).Namespace(&H1F).Self.Path所有用户的“我的收藏”夹文件MsgBoxCreateObject(Shell.Application).Namespace(&H20).Self.Path当前用户IE的“Cache”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H21).Self.Path当前用户IE的“Cookie”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H22).Self.PathIE的“历史记录”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H23).Self.Path所有用户的“应用数据”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H24).Self.Path系统中的Windows目录MsgBoxCreateObject(Shell.Application).Namespace(&H25).Self.PathWINDOWS系统的“System32”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H26).Self.Path“程序文件”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H27).Self.Path当前用户的“图片收藏”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H28).Self.Path当前用户的“用户配置文件”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H29).Self.Pathx86 system directory on RISCMsgBoxCreateObject(Shell.Application).Namespace(&H2A).Self.Pathx86 C:Program Files on RISCMsgBoxCreateObject(Shell.Application).Namespace(&H2B).Self.Path系统程序共用组件文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H2C).Self.Pathx86 Program FilesCommon on RISCMsgBoxCreateObject(Shell.Application).Namespace(&H2D).Self.Path所有用户的“模块”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H2E).Self.Path所有用户的“我的文档”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H2F).Self.Path所有用户的“管理工具”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H30).Self.Path当前用户的“管理工具”文件夹MsgBoxCreateObject(Shell.Application).Namespace(&H31).Self.PathNetwork and Dial-up ConnectionsMsgBoxCreateObject(Shell.Application).Namespace(&H35).Self.PathAll UsersMy MusicMsgBoxCreateObject(Shell.Application).Namespace(&H36).Self.PathAll UsersMy PicturesMsgBoxCreateObject(Shell.Application).Namespace(&H37).Self.PathAll UsersMy VideoMsgBoxCreateObject(Shell.Application).Namespace(&H38).Self.PathResource DirecotryMsgBoxCreateObject(Shell.Application).Namespace(&H39).Self.PathLocalized Resource DirecotryMsgBoxCreateObject(Shell.Application).Namespace(&H3A).Self.PathLinks to All Users OEM specific appsMsgBoxCreateObject(Shell.Application).Namespace(&H3B).Self.PathUSERPROFILELocal SettingsApplication DataMicrosoftCDBurningMsgBoxCreateObject(Shell.Application).Namespace(&H3D).Self.PathComputers Near Me (computered from Workgroup membership)组合命令&H8000combine with CSIDL_ value to force folder creation inSHGetFolderPath()组合命令&H4000combine with CSIDL_ value to return an unverified folder path组合命令&H1000combine with CSIDL_ value to insure non-alias versions of thepidl组合命令&H800combine with CSIDL_ value to indicate per-user init (eg.upgrade)组合命令&HFF00mask for all possible flag values代码：网页源文件=取网页源码(/forum.php)TracePrint 网页源文件Function 取网页源码(URL) Set objXML=CreateObject(Microsoft.XMLHTTP) objXML.Open Get, Url, False objXML.send If objXML.readyState=4 then 取网页源码 =objXML.ResponseText End If objXML.Abort Set objXML = NothingEnd Function代码解析： objXML.Open Get, Url, FalseXMLHTTP对象的Open方法，它的参数是这样的bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword一共五个参数：bstrMethod：数据传送方式，即GET或POST。我们要获取数据，所以使用GET方式。 bstrUrl： 服务网页的URL。 varAsync： 是否同步执行。缺省为True，即异步执行。False，即同步执行。我们选择False，同步执行，意思就是：发送完要获取网页源文件的指令之后，等待返回值，等值返回了才执行下一句代码。bstrUser： 用户名，可省略。bstrPassword：用户口令，可省略。If objXML.readyState=4 thenXMLHTTP对象的readystate属性，它的值是0-4：0 ：