怎样用VB获得系统路径？

我试了两个API：  
  GetSystemDirectory  
  GetWindowsDirectory  
  好像不能用（抑或是我不会使8-P），恳请帮助。 问题点数：30、回复次数：6Top

1 楼liu_student_wei（）回复于 2001-12-17 14:33:33 得分 10

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

2 楼lioneye（）回复于 2001-12-17 14:39:00 得分 10

应该能用，不过，你用之前要定义存放的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)  
  Top

3 楼wmouse（山水）回复于 2001-12-17 14:53:49 得分 0

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

4 楼DeityFox（逃之11）回复于 2001-12-17 15:33:57 得分 10

Private   Declare   Function   GetSystemDirectory   Lib   "kernel32"   Alias   "GetSystemDirectoryA"   (ByVal   lpBuffer   As   String,   ByVal   nSize   As   Long)   As   Long  
   
  Private   Sub   Form_Load()  
          '作者：蔡渭铭  
          'E-Mail:   daniel_0571@263.net  
          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  
  Top

5 楼pp616（坏蛋）回复于 2001-12-17 16:16:37 得分 0

呵呵。应该先看书啊。Top

6 楼wmouse（山水）回复于 2001-12-17 16:20:15 得分 0

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

相关问题

• winpath
• 路径
• ssave
• sysstr
• getsystemdirectory
• ret
• pos
• dim

• 帖主：wmouse
• liu_student_wei
• lioneye
• DeityFox

• Visual Basic类图书
• Visual Basic类源码下载