'**************************************
'Windows API/Global Declarations for :Connect, Disconnect Networks Drives ( EASILY )
'**************************************
Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType As Long) As Long
Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType As Long) As Long
Public Const RESOURCETYPE_DISK = &H1
code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
'**************************************
' Name: Connect, Disconnect Networks Drives ( EASILY )
' Description:Connects and Disconnects Network Drives from your System
' By: MASTER VB PROGRAMMER
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2209&lngWId=1'for details.'**************************************
Private Sub cmdConnect_Click()
Dim x As Long
If Index = 0 Then
x = WNetConnectionDialog(Me.hwnd, RESOURCETYPE_DISK)
End If
End Sub
Private Sub cmdDisconnect_Click()
If Index = 1 Then
x = WNetDisconnectDialog(Me.hwnd, RESOURCETYPE_DISK)
End If
End Sub
Private Sub cmdConnect_Click() Dim x As Long If Index = 0 Then x = WNetConnectionDialog(Me.hwnd, RESOURCETYPE_DISK) End If End Sub
****************Put***************
Private Sub Form_Load() Dim x As Long If Index = 0 Then x = WNetConnectionDialog(Me.hwnd, RESOURCETYPE_DISK) End If End Sub (If this comment was disrespectful, please report it.)
The API calls are good. However, if you could post code that was complete and accurate, it would be nice. The command buttons are not control arrays in the sample code and variable x is not declared for disconnect. You might want to change your name to something else. (If this comment was disrespectful, please report it.)
If you need to know how to connect the drive without the resulting error msg for the user then e-mail me & I will send u my simple project. It works ! (If this comment was disrespectful, please report it.)
This looks great, but does it automatically find the next available drive letter? Either way, is there a way to find next avail drive independently? Thanks, /ts (If this comment was disrespectful, please report it.)
into separate module (actually it always a good idea to take constants out of the form code). Good Luck (If this comment was disrespectful, please report it.)
Work nice but one question is there any way in VB that we can right the script to change the CDROM drive and than restart the computer. If u know something like that Please e-mail me
Thank YOu
(If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 101 Users
6/27/1999 8:43:00 PM: 
