VB几个有用的函数

注释：————————（5）————————————
注释：获得Windows目录 ,需要下面的API声明
注释：Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
注释：返回一个字符串，如“C:\Windows”、“C:\Winnt”
注释：调用举例：
注释：Dim strWindir As String
注释：strWindir = GetWinDir()
Private Function GetWinDir()
Dim windir As String * 100
Call GetWindowsDirectory(windir, 100)
GetWinDir = Left$(windir, InStr(windir, vbNullChar) - 1)

End Function

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!