アミネスさん、こんにちは。

＞実は SetCurrentDirectory を使用したいのですが、
＞どうやっても SetCurrentDirectory の呼び出しエラーが発生します。

PBDSのフリーライブラリを使えば１行で終わりですが、
実験君してしまいましたので、以下のスクリプトをみてやってください。

[テスト環境]
PB:7.0
OS:NT4.0 SP3
DB:Adaptive Server Anywhere 6.0
???????????????????????????????????
[外部関数]
FUNCTION UnsignedLong GetCurrentDirectoryA
         (Long cchCurDir, REF String lpszCurDir)
 LIBRARY \"Kernel32.dll\"
FUNCTION Boolean SetCurrentDirectoryA(REF String lpszCurDir)
 LIBRARY \"Kernel32.dll\"
 
[スクリプト]
//初期設定
  string currentDir, moveDir
  long   textLen, lRet
 
//カレントディレクトリを保存
  textLen    = 256
  currentDir = space(textLen)
  lRet = getCurrentDirectoryA(textLen, currentDir)
  if lRet=0 then
    messageBox(\"エラー\",\"カレントディレクトリが取得できません\")
    return
  end if
 
//カレントディレクトリを変更
  moveDir = \"c:\\windows\"
  if setCurrentDirectoryA(moveDir)=false then
    messageBox(\"エラー\",\"カレントディレクトリを変更できません\")
    return
  end if
 
//カレントディレクトリを元に戻す
  moveDir	 = currentDir
  if setCurrentDirectoryA(moveDir)=false then
    messageBox(\"エラー\",\"カレントディレクトリを元の位置に移動できません\")
    return
  end if
  messageBox(\"\",\"カレントディレクトリの移動に成功しました\")
???????????????????????????????????