파워빌더 - Directory 존재여부 확인

Function Long SetCurrentDirectoryA (ref String lpPathName ) Library "kernel32"
Function Long GetCurrentDirectoryA (ref Long nBufferLength ,ref String lpBuffer ) Library "kernel32"
/********************************************************************
Argument : String = 디렉터리명(as_dirname)
[ EX : C:\WINDOWS ]
Return : Integer = 1 이면 디렉터리존재
0 이면 디렉터리미존재
*********************************************************************/

String ls_lpPathName, ls_oldPathName
Long ll_Rtn, ll_Buffer

ll_Buffer = 255
ls_oldPathName = space(255)
ls_lpPathName = as_dirname

// 현재 디렉터리
GetCurrentDirectoryA(ll_Buffer,ls_oldPathName)

// 디렉터리 이동
ll_Rtn = SetCurrentDirectoryA (ls_lpPathName )

// 디렉터리 복귀
SetCurrentDirectoryA(ls_oldPathName )

RETURN ll_Rtn