VB and VBA Users Source Code: Converting a mapped drive/path to a UNC path
[
Home
|
Contents
|
Search
|
Reply
| Previous | Next ]
VB/VBA Source Code
Converting a mapped drive/path to a UNC path
By:
Andrew Baker
Email (spam proof):
Email the originator of this post
Date:
Wednesday, October 18, 2000
Hits:
1323
Category:
Networks
Article:
The source code below returns/converts a mapped path into a UNC path: Option Explicit Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long 'Purpose : Returns the UNC Path given a path 'Inputs : sPathName The path to convert 'Outputs : The UNC path of sPathName 'Author : Andrewb 'Date : 17/08/2000 'Notes : Requires NT/2000 'Revisions : Function ConvertToUNC(sPathName As String) As String Dim szValue As String, szValueName As String, sUNCName As String Dim lErrCode As Long, lEndBuffer As Long Const lLenUNC As Long = 520 'Return values for WNetGetConnection Const NO_ERROR As Long = 0 Const ERROR_NOT_CONNECTED As Long = 2250 Const ERROR_BAD_DEVICE = 1200& Const ERROR_MORE_DATA = 234 Const ERROR_CONNECTION_UNAVAIL = 1201& Const ERROR_NO_NETWORK = 1222& Const ERROR_EXTENDED_ERROR = 1208& Const ERROR_NO_NET_OR_BAD_PATH = 1203& 'Verify whether the disk is connected to the network If Mid$(sPathName, 2, 1) = ":" Then sUNCName = String$(lLenUNC, 0) lErrCode = WNetGetConnection(Left$(sPathName, 2), sUNCName, lLenUNC) lEndBuffer = InStr(sUNCName, vbNullChar) - 1 'Can ignore the errors below (will still return the correct UNC) If lEndBuffer > 0 And (lErrCode = NO_ERROR Or lErrCode = ERROR_CONNECTION_UNAVAIL Or lErrCode = ERROR_NOT_CONNECTED) Then 'Success sUNCName = Trim$(Left$(sUNCName, InStr(sUNCName, vbNullChar) - 1)) ConvertToUNC = sUNCName & Mid$(sPathName, 3) Else 'Error, return original path ConvertToUNC = sPathName End If Else 'Already a UNC Path ConvertToUNC = sPathName End If End Function
Terms and Conditions
Support this site
Download a trial version of the Excel Workbook Rebuilder
