namahamu21さん、cooさん、こんばんは。

＞＞自分のEXEファイルのフォルダパスを知りたいのですが、
＞＞どのように取得するのでしょうか？
＞＞どなたかご存知ないですか、凄く急いでます。
＞＞よろいくお願いします。
＞
＞API関数で取得出来たと思います。
＞外部関数定義は、PBでは下記でOKだと思います。
＞
＞Function Long GetCurrentDirectory(Long BuffLen, ref string dir) &
＞         LIBRARY \"kernel32\" Alias for \"GetCurrentDirectoryA\"
＞Function Long SetCurrentDirectory(String PathName) &
＞         LIBRARY \"kernel32\" Alias for \"SetCurrentDirectoryA\"
基本的には、GetCurrentDirectoryA()でいいのですが、SetCurrentDirectoryA()、
GetFileOpenName()、GetFileSaveName()を使用した後等で、カレントが変わって
いる可能性がありますので、私は、GetModuleFileNameA()から求めるようにしてい
ます。

以下に、例を記述します。
記述例の仕様
・EXEファイルは[アプリケーション名].EXEとする。
・PBから実行（PBLの状態で）した場合は、カレントディレクトリとする。

・グローバル外部関数の定義
function ulong GetCurrentDirectoryA(ulong lBuf, ref string CurDir) &
library \"kernel32.dll\"
function ulong GetModuleFileNameA(ulong hWnd, ref string Fname, ulong lBuf) &
library \"kernel32.dll\" 

・スクリプト
// アプリケーション名を求める
Application app
app = GetApplication()

// カレントディレクトリを求める
ulong  lBuf
string CurDir
lBuf = 260
CurDir = Space( lBuf + 1 )
GetCurrentDirectoryA( lBuf, CurDir )

// 実行ファイル名を求める
string FileName, work
FileName = Space( lBuf + 1 )
GetModuleFileNameA( Handle( this ), FileName, lBuf )
work = Upper( FileName )

// 実行ディレクトリを求める
string PathName
long   index
index = Pos( work, \"\\\" + Upper( app.AppName ) + \".EXE\" )
if index > 0 then
　 PathName = Left( FileName, index - 1 )
else
　 PathName = CurDir
end if