I need to upload some files
Code: Select all
oFtp:uploadFile(LOCALFILE, REMOTEFILE)
Code: Select all
$cfile = 'somefile.txt');
chmod($cfile, 0600);
Thx,
Serge
Moderator: Rathinagiri
Code: Select all
oFtp:uploadFile(LOCALFILE, REMOTEFILE)
Code: Select all
$cfile = 'somefile.txt');
chmod($cfile, 0600);
Code: Select all
oUrl := tUrl():New()
oUrl:cProto := 'ftp'
oUrl:cServer := x_FTP_SERVER
oUrl:cPath := ''
oUrl:cFile := ''
oUrl:cUserid := X_FTP_USER
oUrl:cPassword := X_FTP_PASSW
oFtp := tIPClientFtp():New( oUrl )
CC := 0
DO WHILE .T.
IF oFtp:open()
EXIT
ELSE
CC++
IF CC >= 4
? "NO FTP connection ", oFtp:lastErrorMessage()
RETURN .F.
ELSE
IF 'TIMEOUT' == ALLTRIM(UPPER(oFtp:lastErrorMessage()))
? "FTP TIMEOUT ", oFtp:lastErrorMessage()
ENDIF
ENDIF
ENDIF
ENDDO
IF .NOT. oFtp:open()
? oFtp:lastErrorMessage()
RETURN
ENDIF
LclFileM := "myfile.txt"
RmtFileM := '/my_domain/files/myfile.txt'
? 'RmtFileM', RmtFileM
? 'LclFileM', LclFileM
IF FILE(LclFileM)
IF .NOT. oFtp:uploadFile(LclFileM, RmtFileM) // here I need to chmod(RmtFileM, 0600);
MSGINFO('Unable to upload' )
ENDIF
ENDIF