谢谢您的浏览。我在程序开发的过程中遇到了,这样的难题。在我的机器上调试通过的程序在给用户使用的时候,GetPrivateProfileString这个函数,读取不到数据。
    GetPrivateProfileString "helpfile", "filename", "", buff, 128, "C:\guanxianziyuanguanlixitong.ini"
    lngLen = InStr(buff, Chr(0))
    strPath = Trim(Left(buff, lngLen - 1))
调试的时候 发现buff是一连串的回车符。请问这是怎么回事啊!GetPrivateProfileString 这个函数使用起来还需要别的什么条件么?在vba 中使用了这个函数不是直接在vb中用!!

解决方案 »

  1.   

    使用不需要别的条件
    dim buff as string*128
        GetPrivateProfileString "helpfile", "filename", "", buff, 128, "C:\guanxianziyuanguanlixitong.ini"
        lngLen = InStr(buff, Chr(0))
        strPath = Trim(Left(buff, lngLen - 1))
      

  2.   

    dim buff as string
    buff=string$(128,0)
        GetPrivateProfileString "helpfile", "filename", "", buff, 128, "C:\guanxianziyuanguanlixitong.ini"
        lngLen = InStr(buff, vbnullchar)
        strPath = Trim$(Left$(buff, lngLen - 1))