실수:대화결과;
실수:반환값;
만일(버튼8.제목="열기"){
만일((콤보박스1.문자<>"") 그리고 (FTP연결)){
기본창.사용자함수0.통합함수(2);
만일(기본창.작업판.변경여부){
대화결과:=대화창보여(기본창.제목,"["+파일명추출(파일이름)+"]가 변경되었습니다."+줄+줄+
"변경사항을 저장하시겠습니까?",ㄷㅇ경고,ㄷㅂ예아니오취소);
만일(대화결과=ㄷㅊ예){
기본창.작업판.내용.파일저장해(실행경로+"ftptemp.ftm");
반환값:=파일전송.File_Upload(열기주소,열기아이디,열기비밀번호,열기FTP경로,열기FTP파일이름,실행경로+"ftptemp.ftm");
만일(반환값<>0){
대화창보여(기본창.제목,"FTP 전송 시 오류가 발생했습니다."+줄+줄+
"오류 코드 : "+수를문(반환값),ㄷㅇ에러,ㄷㅂ확인);
저장취소:=참;}
만일(부정 저장취소){
반환값:=파일전송.File_Download(주소,아이디,비밀번호,이전FTP경로+경로콤보박스.문자,콤보박스1.문자,실행경로+"ftptemp.ftm");
만일(반환값<>0)
대화창보여(기본창.제목,"FTP 전송 시 오류가 발생했습니다."+줄+줄+
"오류 코드 : "+수를문(반환값),ㄷㅇ에러,ㄷㅂ확인);
아니면{
기본창.파일관리창0.파일명:="";
기본창.작업판.내용.파일읽어(실행경로+"ftptemp.ftm");
파일이름:=콤보박스1.문자;
기본창.제목:=버전명+" - ["+파일명추출(파일이름)+"]";
FTP열기:=참;} } }
아니면 만일(대화결과=ㄷㅊ아니오){
반환값:=파일전송.File_Download(주소,아이디,비밀번호,이전FTP경로+경로콤보박스.문자,콤보박스1.문자,실행경로+"ftptemp.ftm");
만일(반환값<>0)
대화창보여(기본창.제목,"FTP 전송 시 오류가 발생했습니다."+줄+줄+
"오류 코드 : "+수를문(반환값),ㄷㅇ에러,ㄷㅂ확인);
아니면{
기본창.파일관리창0.파일명:="";
기본창.작업판.내용.파일읽어(실행경로+"ftptemp.ftm");
파일이름:=콤보박스1.문자;
기본창.제목:=버전명+" - ["+파일명추출(파일이름)+"]";
FTP열기:=참;} } }
아니면{
반환값:=파일전송.File_Download(주소,아이디,비밀번호,이전FTP경로+경로콤보박스.문자,콤보박스1.문자,실행경로+"ftptemp.ftm");
만일(반환값<>0)
대화창보여(기본창.제목,"FTP 전송 시 오류가 발생했습니다."+줄+줄+
"오류 코드 : "+수를문(반환값),ㄷㅇ에러,ㄷㅂ확인);
아니면{
기본창.파일관리창0.파일명:="";
기본창.작업판.내용.파일읽어(실행경로+"ftptemp.ftm");
파일이름:=콤보박스1.문자;
기본창.제목:=버전명+" - ["+파일명추출(파일이름)+"]";
FTP열기:=참;} }
기본창.사용자함수0.통합함수(1);
기본창.사용자함수0.통합함수(3);
FTP열기:=참;
열기주소:=주소;
열기아이디:=아이디;
열기비밀번호:=비밀번호;
열기FTP경로:=이전FTP경로+경로콤보박스.문자;
열기FTP파일이름:=콤보박스1.문자;
버튼3.눌러;} }
아니면{
만일((FTP연결) 그리고 (콤보박스1.문자<>"")){
만일(FTP열기){
기본창.작업판.내용.파일저장해(실행경로+"ftptemp.ftm");
반환값:=파일전송.File_Upload(열기주소,열기아이디,열기비밀번호,열기FTP경로,열기FTP파일이름,실행경로+"ftptemp.ftm");
만일(반환값<>0){
대화창보여(기본창.제목,"FTP 전송 시 오류가 발생했습니다."+줄+줄+
"오류 코드 : "+수를문(반환값),ㄷㅇ에러,ㄷㅂ확인);}
}
아니면{
기본창.작업판.내용.파일저장해(실행경로+"sftptemp.ftm");
반환값:=파일전송.File_Upload(주소,아이디,비밀번호,이전FTP경로+경로콤보박스.문자,콤보박스1.문자,실행경로+"sftptemp.ftm");
만일(반환값<>0)
대화창보여(기본창.제목,"FTP 전송 시 오류가 발생했습니다."+줄+줄+
"오류 코드 : "+수를문(반환값),ㄷㅇ에러,ㄷㅂ확인);
}
}
버튼3.눌러;}
|