如何获得system32的路径?

[SKY1006]

如何用VB编写一个程序获得system32的路径
估计要用到API,但不太熟,请各位大侠帮帮忙

[lxcc]

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
Dim sPath As String * 255
GetSystemDirectory sPath, 255

MsgBox sPath
End Sub

[tztz520]

Private Sub Form_Load()
MsgBox Environ("systemroot")
End Sub

[dongge2000]

Option Explicit

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
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function WinDir() As String
Dim S As String
Dim Z As Long
Dim R As Long
S = Space(254)
Z = Len(S)
R = GetWindowsDirectory(S, Z)
WinDir = Left(S, R)
WinDir = WinDir & "\"
End Function

Public Function SysDir() As String
Dim S As String
Dim Z As Long
Dim R As Long
S = Space(254)
Z = Len(S)
R = GetSystemDirectory(S, Z)
SysDir = Left(S, R)
SysDir = SysDir & "\"
End Function

Public Function TempDir() As String
Dim S As String
Dim Z As Long
Dim R As Long
S = Space(254)
Z = Len(S)
R = GetTempPath(Z, S)
TempDir = Left(S, R)
End Function

Public Function UserName() As String
Dim S As String
Dim Z As Long
Dim R As Long
S = Space(254)
Z = Len(S)
R = GetUserName(S, Z)
UserName = S
End Function

Public Function ComputerName() As String
Dim S As String
Dim Z As Long
Dim R As Long
S = Space(254)
Z = Len(S)
R = GetComputerName(S, Z)
ComputerName = S
End Function

[hwyqy]

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
Dim sTemp As String * 255
dim sPath as string
GetSystemDirectory sTemp , 255
sPath=left(instr(1,sTemp,chr$(0)-1)
End Sub

[frankwong]

Private Sub Form_Load()
MsgBox Environ("systemroot") & "\system32"
End Sub

[True1024]

Option Explicit
Public Const MAX_PATH = 260
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

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

[jackclh]

支持dongge2000(秋日私语：非[版务].灌！) 所说!

[fog]

Dim objCnFiles As Object
Set objCnFiles = CreateObject("Scripting.FileSystemObject")
MsgBox objCnFiles.GetSpecialFolder(1)
不知道是不是你要的

[wumylove1234]

汗,这也行!

VB虽易,精者几何!

有道理.

[Yh_King]

VB是我心中的梦！
我只会VB+数据库，不只有没有发展前途？
[e-mail]

[wumylove1234]

只会VB肯定不行的了.

精一个,熟N个.

数据库,Delphi,C++,C#,VB.Net.......

[mingtian2008]

up