본문 바로가기
다물칸 주소복사
조회 수 1046 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부
Extra Form
구분 자료
출처 내가작성

데브피아에 이것저것 많이 올렸었네요.

http://www.devpia.com/MAEUL/Contents/Detail.aspx?BoardID=274&MAEULNo=19&no=21168&ref=21168

 

 

사용법은 아래와 같습니다. 그대로 OCX를 프로젝트에 올려서 쓰셔도 되고 직접 코드에서 빼서 쓰셔도 되겠죠. 하하

Function들의 리턴값은 성공하면 0, 실패하면 -1이 반환됩니다.

 

Function SetDrive(sLocalDrv As String, sRemoteDrv As String, Optional sUserID As String, _

            Optional sUserPw As String)

지정 네트워크 드라이브를 설정합니다.

 

Ex) SetDrive "X:", "\\192.168.1.1\folder" (로그인이 필요할 경우: , "UserID", "UserPw")

 

Function RemoveDrive(sLocalDrv As String)

지정 네트워크 드라이브를 제거합니다.

 

Ex) RemoveDrive "X:"

Cf) X: 라는 드라이브가 없다면 리턴값으로 -1이 리턴 됩니다.

 

Function RemoveAllDrive()

모든 네트워크 드라이브를 제거합니다.

 

Ex) Call RemoveAllDrive

 

 

Sub GetNetDrives(ByRef sResult() As String)

 

Ex)

 

dim sResult() as string

call GetNetDrives(sResult)

 

하면 현재 설정된 드라이브의 목록을 sResult라는 스트링 배열에 담아서 리턴됩니다.

 

참고: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/60f96092-6021-42f3-9a27-6848f4c38f64.asp