在前面的文章中，我們給出了獲得應(yīng)用程序當(dāng)前路徑的一種方法（詳細(xì)參考PB中如何獲得當(dāng)前應(yīng)用程序的路徑一文），在這里使用另外一個API函數(shù)也可以實(shí)現(xiàn)同樣的效果，下面是程序的源代碼。

//獲得當(dāng)前的路徑
FUNCTION ulong GetCurrentDirectoryA(ulong nBufferLength,ref string lpBuffer) Library    kernel32.dll"
String ls_buffer
Ls_buffer=space(255)
If getcurrentdirectorya(255,ls_buffer)=0 then
     Setnull(ls_buffer)
Else
If Right(ls_buffer,1)<>"1" then ls_buffer=ls_buffer+"/"
End if
Return ls_buffer