Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› API › 查看内容

如何获取Windows目录和System目录？

1970-1-1 08:00| 发布者: 共享| 查看: 1912| 评论: 0

'复制以下代码到一模块中
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'在程序中调用
Dim WindowsDirectory As String, SystemDirectory As String, x As Long
WindowsDirectory = Space(255)
SystemDirectory = Space(255)
x = GetWindowsDirectory(WindowsDirectory, 255)
x = GetSystemDirectory(SystemDirectory, 255)
MsgBox "Windows的安装目录是:" + WindowsDirectory+",系统目录是:" + SystemDirectory

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

如何获取Windows目录和System目录？

最新评论

相关分类