NickName_	_ _Pass_
Homepage_	_
TITLE_	_
	_ HTML BR __ TextAreaSize
millefeuille wrote.. : 계정풀백업 + DB덤프 백업을 다운로드해놓고 : 파일 삭제를 늘 까먹어요. : 그러다보니 늘 경고메일을 받고있어서 : 이대로 가다간 계정이 잘릴지도 모른다는 생각도 들고 해서 : cute ftp pro용의 스크립트를 만들었어요. : 텔넷에서 10번 계정풀백업 메뉴로 계정과 DB를 백업한 후에 : 이 스크립트를 실행하시면 다운로드가 끝난 후에 : 백업파일을 삭제할거에요. : ... 이제 거대파일 경고메일 받는 일은 없을듯.. ; : : : : : : : Dim MySite : Dim strHost : Dim strLogin : Dim strPassword : : '// ----- 설정시작 ------------------------------------------------------ : - : '// FTP 사이트의 주소를 입력합니다. : strHost = "" : '// FTP 사이트의 아이디를 입력합니다. : strLogin = "" : '// FTP 사이트의 패스워드를 입력합니다. : strPassword = "" : '// 백업받을 로컬 디렉토리를 입력합니다. : strLocal = "" : '// ----- 설정종료 ------------------------------------------------------ : - : : Set MySite = CreateObject("CuteFTPPro.TEConnection") : : MySite.Protocol = "FTP" : MySite.Host = strHost : MySite.Login = strLogin : MySite.Password = strPassword : MySite.Connect : : If (Not Cbool(MySite.IsConnected)) Then : MsgBox "사이트에 연결할 수 없습니다." : Quit(1) : End If : : If (Not (MySite.LocalExists(strLocal))) Then : MySite.CreateLocalFolder strLocal : End If : : MySite.LocalFolder = strLocal : : MySite.Download strLogin + ".sql" : MySite.RemoteRemove strLogin + ".sql" : MySite.Download strLogin + ".tgz" : MySite.RemoteRemove strLogin + ".tgz" : : MsgBox "작업완료: " + MySite.Status

Copyleft 1999-2025 by JSBoard Open Project Theme Designed by IDOO And follow GPL2