关于字符串的问题?

dim appfile as string  'appfile为程序所在目录appfile = App.Path
If Len(appfile) = 3 Then appfile = Left(appfile, 2)

解决方案 »

  1.   

    汉字应该是按2个字节处理，你用App.path取得程序的路径试试看，应该没问题。
      

  2.   

    我用VB6.0中文企业版，在正常使用时，汉字有英文字母一样，都算一个有时在API中才会变成两个，还有在使用RICHTEXT控件的FIND中才会变成两个你还是象root3646(虫子) 说的那样用“\”截取比较好。
      

  3.   

    这样用长度就统一了，西文1个，中文2个。
    lenb(strconv("字串1"),vbformunicode))
      

  4.   

    dim xxlen
    xxlen = lenb(StrConv(file_path, VbFromUniCode))
      

  5.   

    其实app.path就是我要的，巨faint