getsystemdirectory.bas

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

Attribute VB_Name = "GetSystemDirectoryModule"
Option Explicit
Public Const MAX_PATH = 260
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'返回Windows 大多数系统文件的存放目录，一般为System32
Sub GetSystemDirectory_test()
    Dim S As String, Length As Long
    
    S = String(MAX_PATH, 0)
    Length = GetSystemDirectory(S, MAX_PATH)
    S = Left(S, InStr(S, Chr(0)) - 1)
    
    MsgBox "Windows System 路径=" & S, , "GetSystemDirectory"
End Sub

Sub Main()
    GetSystemDirectory_test
End Sub