getwindowsdirectory.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "GetWindowsDirectoryModule"
Option Explicit

Public Const MAX_PATH = 260
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'返回Windows的安装目录
Sub GetWindowsDirectory_test()
    Dim S As String, Length As Long
    
    S = String(MAX_PATH, 0)
    Length = GetWindowsDirectory(S, MAX_PATH)
    S = Left(S, InStr(S, Chr(0)) - 1)
    
    MsgBox "Windows 路径=" & S, , "GetWindowsDirectory"
End Sub

Sub Main()
    GetWindowsDirectory_test
End Sub