Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
---------------------------------
Private Sub Command1_Click()
Dim sBuffer,a As String
     
      sBuffer = Space(255)
     a=GetWindowsDirectory(sBuffer, 255)
     text1.text=a
      
End Sub
 为什么我一运行，出错了，vB整个程序都关掉了，擦，，这是什么意思呢，

Dim sBuffer As String,a As String

经调试， text1.text=10
 这是神马情况呢，

Private Sub Command1_Click()
Dim sBuffer as string,a As long
     
      sBuffer = Space(255)
     a=GetWindowsDirectory(sBuffer, 255)
     text1.text= left$(sbuffer,instr(1,sbuffer,vbnullchar)-1)
      
End Sub

其实不用那么麻烦，我最后试出来了，直接text1.text=sbuffer就行了，汗死