在VBA中获取“我的文档”的目录路径
来源:互联网 发布:埃及艳后哪个版本 知乎 编辑:程序博客网 时间:2024/06/05 00:12
方法1. 读取注册表:
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Global Const HKEY_CURRENT_USER = &H80000001
Global Const KEY_ALL_ACCESS = &H3F
Sub test()
Dim hKey As Long
Dim resultvl As String
lretval = RegOpenKeyEx(HKEY_CURRENT_USER, "Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders", 0, KEY_ALL_ACCESS, hKey)
If lretval = 0 Then
regop = RegQueryValueExNULL(hKey, "Personal", 0&, lType, 0&, lpcbData)
resultvl = String(lpcbData, 0)
regop = RegQueryValueExString(hKey, "Personal", 0&, lType, resultvl, lpcbData)
If regop = ERROR_NONE Then
vValue = Left$(resultvl, lpcbData)
Else
vValue = Empty
End If
Else
vValue = Empty
End If
MsgBox vValue
End Sub
方法2. 用WSCRIPT对象模型的SPECIALFOLDERS属性
Sub test()
Set WSh = CreateObject("WScript.Shell")
strdoc = WSh.SpecialFolders("Mydocuments")
MsgBox strdoc '这一句要不要都可以,已经在STRDOC中最得字串了
End Sub
方法3. 使用shell对象.
Sub macro1()
MsgBox CreateObject("shell.Application").Namespace(5).self.Path
End Sub
方法4.
如果没有更改过我的文档路径,可以这样:
Sub macro1()
MsgBox Environ("USERPROFILE") & "/My Documents"
End Sub
方法5 使用WSCRIPT对象模型读取注册表
Sub getit()
MsgBox CreateObject("Wscript.Shell").RegRead("HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/User Shell Folders/Personal")
End Sub
- 在VBA中获取“我的文档”的目录路径
- C#中获取我的文档系统文件夹路径
- 获取我的文档路径
- 获取"我的文档"路径
- 获取我的文档路径
- 获取"我的文档“路径
- 获取 我的文档 等目录
- C#获取“所有用户”的路径, 我的桌面,我的文档,我的音乐,我的图片等等目录
- java获取桌面,我的文档路径
- c++获取Windows“我的文档”路径
- 在Perl中获取当前目录的完整路径
- 在Perl中获取当前目录的完整路径pwd
- 在Perl中获取当前目录的完整路径
- windows上获取“我的文档”目录
- C# 如何获取某用户的“我的文档”的目录
- Delphi GetModuleFileName函数的用法(可以获取项目的路径,桌面的路径,我的文档的路径)
- 修改我的文档等的路径
- Android中获取SDCard的目录路径
- 男人的正确洁面方式
- OpenGL教程之ZEUS教程第一课:什么是OpenGL
- 如何循序渐进向DotNet架构师发展
- SQL*PLUS命令的使用
- Microsoft Windows DHCP Client Service Remote Buffer Overflow
- 在VBA中获取“我的文档”的目录路径
- tomcat 5.5 整合 apache 2
- Java 新手入门推荐读物
- 关于Int 2E
- Windows 2003分区魔术师:Diskpart
- linux skills(pending)
- 指针声明的右左法则
- 气质类型测试!!!
- 【原创】破解G003诈金花必杀技视频文件