怎么系统安装在哪个盘符里？

Question

在VB中怎么知道  系统安装在哪个盘符里？
并让text1.text =系统安装在那个盘符

Answer 1

Private Sub Form_Load()
    Text1.Text = Left(Environ("windir"), 3)
End Sub

Answer 2

Const MAXLENGTH = 45
Private m_sSysDir As String * MAXLENGTHPrivate Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
如下调用：
GetSystemDirectory(m_sSysDir, MAXLENGTH)，对取得字符串后对其中的NullChar 处理掉就可以了。

Answer 3

用如上函数来处理Chr$(0),
function StripNull(sPath as String) as String
    StripNull=Left(sPath,InStr(sPath,vbNullChar)-1)
end function这样就Okay了，呵呵。

Answer 4

Private Sub Form_Load()
    Text1.Text = Left(Environ("windir"), 3)
End Sub
这个就可以了
小寒同志的这个简单实用