怎样用VB获得系统路径？

[wmouse]

我试了两个API：
GetSystemDirectory
GetWindowsDirectory
好像不能用（抑或是我不会使8-P），恳请帮助。

[liu_student_wei]

添加一模块，声明getsystemdirectory
在你需要的程序上，编写
Dim sysstr As String
sysstr = String(255, vbNullChar)
GetSystemDirectory sysstr, len(sysstr)

[lioneye]

应该能用，不过，你用之前要定义存放的String的长度，所以，在调用API后，要将String里的路径再取一次，以去掉没用的空串。

Dim WinPath as String
Dim Pos as Integer

WinPath = String(80, "#")
Call GetWindowsDirectory(WinPath, 79)
Pos = InStr(WinPath, "#")
WinPath = Left(WinPath, Pos - 2)

[wmouse]

小弟刚用VB，还请问这个模块怎么加？

[DeityFox]

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

Private Sub Form_Load()
'作者：蔡渭铭
'E-Mail: [e-mail]
Dim sSave As String, Ret As Long
'Create a buffer
sSave = Space(255)
'获得系统路径
Ret = GetSystemDirectory(sSave, 255)
'以去掉没用的空串(chr(0))
sSave = Left$(sSave, Ret)
'显示路径
MsgBox "Windows System directory: " + sSave
End Sub

[pp616]

呵呵。应该先看书啊。

[wmouse]

可惜我这本书太浅了，我这点知识还是看别人程序看来的，本来我的VC就半生不熟，现在又不得不用VB，多谢大伙关照，给分。