程序中怎么得到windows的系统路径

[heroliu]

VB程序中怎么得到windows的系统安装盘符和系统路径。

[honey]

使用API函数

[iProgram]

GetWindowDirectry()

[MonkeyLin]

iProgram说的对，也可以用filesystemobject实现

[Arcan]

直接读注册表也可以。

[Jackyin]

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

[T2]

Declare Function GetSystemDirectory Lib "KERNEL32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Declare Function GetWindowsDirectory Lib "KERNEL32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

[cuy]

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

flngtemp = 255
fStrTemp = Space(flngtemp)
fStrTmpInternet = "Temporary Internet Files"
Call GetWindowsDirectory(fStrTemp, flngtemp)
fStrTemp = Trim(fStrTemp)

[jamezj]

getsystemdirectory()
app.path

[ttyp]

以上已经很详细了，给分吧

[zhangjianguo]

very good