获取当前目录的中文问题，困扰中，请高手帮我看一下啊！！！

Question

程序代码如下：
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongPrivate Sub Command1_Click()
    Dim s As String
    s = String(255, " ")
    Dim i As Integer
    i = GetCurrentDirectory(255, s)
    Me.Print Left(s, i)
End Sub点按钮后打印出当前目录，可是如果当前目录中存在中文字符时，却会出一大堆方框符号，怎么把这写东东给去掉啊？？

Answer 1

不用API这么麻烦吧，直接用 VB 的 CurDir 函数不就可以了。

Answer 2

使用这种方法打印:
  me.print left(s,instr(s,chr(0)))

Answer 3

GetCurrentDirectory返回了255个字符，请在打印前使用
J = INSTR（1,S，VBNULLSTRING）
PRINT（LEFT（S，J））