🚀 go-pugleaf

|>lpFilePart As long にしたのですが、だめでした。どうやら、値の送り方が間
違っ
|>ているのでかもしれません。すみませんが、サンプルを書いてはくださらないで
しょ
|>うか。
|どう「だめだった」んでしょうか。
|「GetFullPathName()のコールが実行時エラーになった」とか、「コールは
|できたけど値が正しく取得できない」とか書いてもらわないと...


Public Function GetLongName(FName As String) As String

    Dim IpFileName      As String * 255
    Dim nBufferLength   As Long
    Dim IpBuffer        As String * 255
    Dim IpFilePart      As Long
    Dim ret             As Long

    IpFileName = ""
    nBufferLength = 50
    IpFilePart = 1
    IpBuffer = FName

    ret = GetFullPathName(IpFileName, nBufferLength, IpBuffer, IpFilePart)

    MsgBox IpFileName
    MsgBox nBufferLength
    MsgBox IpBuffer
    MsgBox IpFilePart

End Function

としたのですが、IpBuffer　には空っぽの文字列だけでした。
どうもうまくいきません。コールはできたけど正しく取得できません。
よろしくお願いします。