Posts
Membuat Map Network Drive tidak hanya di tool Windows Tetapi bisa juga kita membuatnya dengan Source Kode VB. Seperti gambar berikut ini :
Contoh Source Code Membuat Map Network Drive
Option ExplicitPrivate Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long
Private Sub cmdMapDrive_Click()Dim drive_letter As StringDim share_name As StringDim password As String lblResult.Caption = "Working..." Screen.MousePointer = vbHourglass DoEvents drive_letter = txtDriveLetter.Text If InStr(drive_letter, ":") = 0 _ Then drive_letter = drive_letter & ":" share_name = txtShareName.Text password = txtPassword.Text If WNetAddConnection(share_name, password, _ drive_letter) > 0 _ Then lblResult.Caption = "Error mapping drive" Else lblResult.Caption = "Drive mapped" End If Screen.MousePointer = vbDefaultEnd Sub
Demikian dan saya ucapkan terima kasih.
