Creates a directory on the FTP Server.
=
Object.CreateFTPDirectory
Parameter
-
lcNewDir
-
New directory
Type |
Character |
Direction |
Input |
Name of the directory to create on the FTP Server.
Returns .T.
if the function successfully created the directory on the FTP Server.
Returns .F.
if the function could not create the directory on the server.
Source Code
LPARAMETERS lcNewDir
LOCAL fResult
IF This.OpenFTPConnection(This.cStartupFolder) && Open an FTP Handle
lcNewDir = lcNewDir + cNULL
=This.BeforeCreateFTPDirectory(lcNewDir)
fResult = FtpCreateDirectory(This.nConnect_Handle, @lcNewDir)
=This.GetExtendedError()
=This.AfterCreateFTPDirectory(lcNewDir,fResult)
=IIF(This.lMultiOperations,.T.,This.CloseFTPConnection()) && Close FTP Handle
RETURN fResult = 1
ENDIF
RETURN .F.