ASPFTP 라는 이름이며, 압축파일에는 설치법과 예제 , 그리고 dll 파일이 포함되어 있습니다.
컴포넌트는 첨부되어 있는 파일을 사용하면 됩니다.
DLL등록하는 방법은
regsvr32 경로\aspftp.dll
라고 하면 되고요, 경로는 DLL 파일의 경로 입니다
981203.zip압축을 풀면 나오는 파일의 aps파일의 소스를 참고 하시면 쉽게 사용
가능 합니다.
그래도 잠깐 살펴 본다면..
‘대충 변수를 설정하고요
Dim objFTP
Dim ftpErrMsg
ftpErrMsg = ""
'객체를 만들어 줍니다
Set objFTP = Server.CreateObject("NIBLACK.ASPFTP")
'인자1 서버이름
'인자2 아이디
'인자3 패스
'인자4 소스파일
'인자5 타겟파일
'인자6 전송형태
'인자7 overWrite
If objFTP.bQPutFile("주소","아뒤","패스워드","경로", "대상",TRANSFER_TYPE_ASCII) Then
ftpErrMsg = ""
Else
ftpErrMsg = "objFTP.sError" '실패시 실패이유가 변수에 저장 됩니다
End If
'이제 객체를 닫아 주고요
Set objFTP = Nothing
if ftpErrMsg = "" then
call 성공시 실행할 함수
else
response.Write "전송실패 : "&ftpErrMsg
end if
머 대충 이렇게 사용하면 됩니다