在前面的文章中，我們給出了獲得應用程序當前路徑的一種方法（詳細參考PB中如何獲得當前應用程序的路徑一文），在這里使用另外一個API函數也可以實現同樣的效果，下面是程序的源代碼。

//獲得當前的路徑
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