Still Can't solve the problem
I modify your list into like this :


#Define INTERNET_MAX_PATH_LENGTH 2048

PROCEDURE GetFtpDirectory
LPARAMETERS lcDirectory
LOCAL fResult, RemoteDir, RemoteDirLength

IF THIS.OpenFtpConnection() && Open an FTP Handle
RemoteDirLength = INTERNET_MAX_PATH_LENGTH
RemoteDir = repl(chr(0), 2048)

fResult = FtpGetCurrentDirectory(this.nConnect_Handle, @RemoteDir, @RemoteDirLength)

THIS.GetExtendedError()
LcDirectory = left(RemoteDir, RemoteDirLength)


THIS.CloseFtpConnection()

IF fResult = 1
RETURN .T.
ELSE
RETURN .F.
ENDIF
ENDIF

ENDPROC


I Called the procedure :

newDirectory = 'Testing'

IF !sz_ftp.GetFtpDirectory(NewDirectory)
MESSAGEBOX("--- Directory Exist",16,"Information")
RETURN
ENDIF


But Still Can't Check the existing Drive in FTP..

Any Suggestion...

thx