为什么这样取得的文件名会出错？

各位朋友好。  
  我用一个api函数取得系统目录的文件名，却发现这个文件名的长度却多了一位，我该怎么办啊？  
  见我的代码：  
   
  Private   Declare   Function   GetSystemDirectory   Lib   "kernel32"   Alias   "GetSystemDirectoryA"   (ByVal   lpBuffer   As   String,   ByVal   nSize   As   Long)   As   Long  
  Private   Sub   Command1_Click()  
          Dim   SystemDirectory   As   String  
          Dim   x   As   Long  
          SystemDirectory   =   Space(255)  
          x   =   GetSystemDirectory(SystemDirectory,   255)  
          Print  
          Print  
          Print   "             系统目录是："   &   SystemDirectory  
          Beep  
          Print   "                                     1234567890123456789012345678901234567890"  
          Print  
          Print  
          Print   "             文件名长度是："   &   Len(Trim(SystemDirectory))  
          Command1.Enabled   =   False  
  End   Sub  
   
  Private   Sub   Form_Load()  
          If   App.PrevInstance   Then   End  
  End   Sub  
   
  明明只有17位啊  
  郁闷 问题点数：20、回复次数：1Top

1 楼pcwak（）回复于 2004-05-02 16:25:42 得分 20

Private   Sub   Command2_Click()  
          Dim   sSave   As   String,   Ret   As   Long  
          sSave   =   Space(255)  
          Ret   =   GetSystemDirectory(sSave,   255)  
          sSave   =   Left$(sSave,   Ret)  
          Print   "系统目录是："   &   sSave  
          Print   "文件名长度是："   &   Len(sSave)  
  End   SubTop

相关问题

• 文件名
• 系统
• ssave
• systemdirectory
• getsystemdirectory
• 长度
• print
• 系统目录
• sub
• ret

• 帖主：leeyun
• pcwak

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