출처 : http://webarty.com
Local_Folder = "e:\itnews_Web\itstvadm\broadcast\etimesn\"
File_Name =
FilePrefix &
"etimes_"&gubun&"_"&edit_date&".txt"
Local_File =
Local_Folder & File_Name
Set objFTP = Server.CreateObject("NIBLACK.ASPFTP")
objFTP.sServerName
= "ip address"
objFTP.sUserID = "id"
objFTP.sPassword =
"passl"
If objFTP.bConnect Then
objFTP.lTransferType =
2
Remote_File = "/itstv/" & File_Name
If
objFTP.bPutFile(Local_File, Remote_File) Then
file_put =
"OK"
Else
file_put = "ERROR"
msg = "자료는 저장되었으나 미디어서버측으로
파일 전송에 오류가 발생하였습니다."
End If
End If
Set objFTP = Nothing