[VB] FTP 기능 담당 모듈

View Comments


VB에서 특정 FTP 서버에 파일을 업로드하기 위한 모듈.

wininet.dll을 사용하여 FTP 업로드기능을 구현함.

1. 공용 변수 및 함수 선언



2. FTP 서버 접속



3. FTP 업로드


4. 접속 종료

'FTP접속종료
Public Sub FtpClose()
  
    If hConnection <> 0 Then InternetCloseHandle hConnection
    hConnection = 0
 
End Sub

5. 기능 사용예

If FtpOpen(FTP 접속 IP, FTP 접속 Port, FTP 접속 사용자 이름, FTP 접속 비밀번호) = False Then
   MsgBox "FTP 서버접속 실패!", vbCritical, "확인"
   Exit Sub
End If
               
If FTPUpload(업로드할 로컬 파일,  원격 서버 파일, ProgrssBar를 가지고 있는 폼 객체) = False Then
   MsgBox "FTP 서버전송 실패!", vbCritical, "확인"
End If

Call FtpClose

MsgBox "전송 완료"
Unload frmProgress

※ 테스트시 유의할점

테스트를 위해서 기본 폼 외에 ProgressBar를 가지고 있는 폼을 따로 생성해두어야 합니다.
따로 폼 생성을 하기 싫으면 함수 모듈 중 FTPUoload 함수 마지막 인자를 없애고
FTPUpload 함수 내 objTarget 객체를 삭제를 하여 사용을 하시기 바랍니다.

* 이 포스트는 blogkorea [블코채널 : 프로그램에 대한 개발팁 및 유용한 정보 공유합시다.] 에 링크 되어있습니다.


댓글0 Comments (+add yours?)

트랙백0 Tracbacks (+view to the desc.)

[VB] 비주얼베이직에서 스크롤 가능하게 설정

View Comments

* 비주얼베이직에서 스크롤 가능하게 설정

비주얼베이직에서는 기본적으로 마우스 휠을 사용한 화면 스크롤 자체가 안된다.

그래서 소스가 길어서 스크롤이 생겼을 때 아래 내용을 볼려면 페이지 업/다운이나 화살표를 이용해야하는

불편함이 있다.

하지만 사람이란건 어떤 걸 사용하다가 불편을 느끼면 그걸 해소하기 위한 도구를 만드는법 ^^;

내가 만든 건 아니지만 유용한 추가기능을 하나 찾았다.
:

바로 첨부파일에 있는 건데 다운로드 후 VBA Mouse Wheel Fix.reg를 실행해서 레지스트리에 등록을 한 다음

비베를 실행하여 메뉴의 추가기능 하위 메뉴인 추가기능 관리자를 선택해서 그림과 같이 설정한다.

사용자 삽입 이미지


확인을 한 다음에 마우스 휠을 돌려보면 휙~휙~ 아래 위 스크롤이 잘 된다.


댓글0 Comments (+add yours?)

트랙백0 Tracbacks (+view to the desc.)

Newer Entries Older Entries