사용법은 아래와 같습니다. 그대로 OCX를 프로젝트에 올려서 쓰셔도 되고 직접 코드에서 빼서 쓰셔도 되겠죠. 하하
Function들의 리턴값은 성공하면 0, 실패하면 -1이 반환됩니다.
지정 네트워크 드라이브를 설정
VB
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")지정 네트워크 드라이브를 제거
VB
Function RemoveDrive(sLocalDrv As String)
Ex) RemoveDrive "X:"X: 라는 드라이브가 없다면 리턴값으로 -1이 리턴 됩니다.
모든 네트워크 드라이브를 제거
VB
Function RemoveAllDrive()
Ex) Call RemoveAllDrive모든 네트워크 드라이브 반환
VB
Sub GetNetDrives(ByRef sResult() As String)
Ex)
dim sResult() as string
call GetNetDrives(sResult)