获取系统目录和Windows目录

王朝system·作者佚名  2006-05-27
窄屏简体版  字體: |||超大  

有时我们需要让自己的程序判断系统目录和Windows目录的名字。这时可以调用WindowsAPI函数GetSystemDirectory和GetWindowsDirectory。

声明:

' 获取系统目录

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _

(ByVal lpBuffer As String, ByVal nSize As Long) As Long

' 获取Windows目录

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _

(ByVal lpBuffer As String, ByVal nSize As Long) As Long

调用:

' 检查系统目录

Public Function GetSystemPath() As String

Dim p As String * 80

Dim length As Long

Dim path As String

length = GetSystemDirectory(p, Len(p))

path = Left(p, length)

GetSystemPath = path

End Function

' 检查Windows目录

Public Function GetWindowsPath() As String

Dim p As String * 80

Dim length As Long

Dim path As String

length = GetWindowsDirectory(p, Len(p))

path = Left(p, length)

GetWindowsPath = path

End Function

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航