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
The More We give, the more we earn