Go Premium for a chance to win a PS4. Enter to Win


DirListBox, DriveListBox, FileListBox Controls

Posted on 2000-05-12
Medium Priority
Last Modified: 2012-06-21
I've got these three controls on a form in VB6.  When I select a file in the FileListBox, I need to be able to extract the UNC path of the file (i.e. \\server\share\filename.txt) and NOT the drive-letter specified path (i.e. F:\share\filename.txt).

I'm trying to feed command-line parameters to a command-line utility from a GUI VB application.  I need to "feed" the command-line program the full UNC path in the form of a string appended to the end of the command (for example, myprog.exe "\\server\share\file.txt").
Question by:Zoplax
  • 4

Expert Comment

ID: 2805409
Use API WNetGetConnection:

Declare Function WNetGetConnection Lib "mpr.dll" Alias _
  "WNetGetConnectionA" (ByVal lpszLocalName As String, _
  ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

It will return the UNC path for a map network drive in lpszRemoteName (pass the Drive: to lpszLocalName). For local drive it will return WN_NOT_CONNECTED (2250&).


Expert Comment

ID: 2805417
A more detailed response:

Public Const ERROR_BAD_DEVICE = 1200&
Public Const ERROR_EXTENDED_ERROR = 1208&
Public Const ERROR_MORE_DATA = 234 '  dderror
Public Const ERROR_NOT_SUPPORTED = 50&
Public Const ERROR_NO_NET_OR_BAD_PATH = 1203&
Public Const ERROR_NO_NETWORK = 1222&
Public Const ERROR_NOT_CONNECTED = 2250&

Public Const UNIVERSAL_NAME_INFO_LEVEL = &H00000001&
Public Const REMOTE_NAME_INFO_LEVEL = &H00000002&

Declare Function WNetGetUniversalName Lib "mpr" Alias "WNetGetUniversalNameA" (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, lpBufferSize As Long) As Long

Here is an explanation:

The WNetGetUniversalName function takes a drive-based path for a network resource and obtains a data structure that contains a more universal form of the name.
DWORD WNetGetUniversalName(
    LPCTSTR lpLocalPath, // pointer to drive-based path for a network resource
    DWORD dwInfoLevel, // specifies form of universal name to be obtained
    LPVOID lpBuffer, // pointer to buffer that receives universal name data structure
    LPDWORD lpBufferSize // pointer to variable that specifies size of buffer
Points to a null-terminated string that is a drive-based path for a network resource.
For example, if drive H has been mapped to a network drive share, and the network resource of interest is a file named SAMPLE.DOC in the directory \WIN32\EXAMPLES on that share, the drive-based path is H:\WIN32\EXAMPLES\SAMPLE.DOC.
Specifies the type of data structure that the function will store in the buffer pointed to by lpBuffer. This parameter can be one of the following values:
Value Meaning
UNIVERSAL_NAME_INFO_LEVEL The function will store a UNIVERSAL_NAME_INFO data structure in the buffer.
REMOTE_NAME_INFO_LEVEL_ The function will store a REMOTE_NAME_INFO data structure in the buffer.
The UNIVERSAL_NAME_INFO data structure points to a Universal Naming Convention (UNC) name string.
Points to a buffer that receives the type of data structure specified by the dwInfoLevel parameter.
Points to a variable that specifies the size in bytes of the buffer pointed to by lpBuffer.
If the function succeeds, it sets the variable pointed to by lpBufferSize to the size in bytes of the data structure stored in the buffer. If the function fails because the buffer is too small, indicated by the ERROR_MORE_DATA error code, it sets the variable pointed to by lpBufferSize to the required buffer size.
Return Values
If the function succeeds, the return value is NO_ERROR.
If the function fails, the return value is an error code. To get extended error information, call GetLastError. GetLastError may return one of the following error codes:
Value Meaning
ERROR_BAD_DEVICE The string pointed to by lpLocalPath is invalid.
ERROR_CONNECTION_UNAVAIL There is no current connection to the remote device, but there is a remembered (persistent) connection to it.
ERROR_EXTENDED_ERROR A network-specific error occurred. Use the WNetGetLastError function to obtain a description of the error.
ERROR_MORE_DATA The buffer pointed to by lpBuffer is too small. The function sets the variable pointed to by lpBufferSize to the required buffer size.
ERROR_NOT_SUPPORTED The dwInfoLevel parameter was set to UNIVERSAL_NAME_INFO_LEVEL, but the network provider does not support UNC  names. This function is not supported by any of the network providers.
ERROR_NO_NET_OR_BAD_PATH None of the providers recognized this local name as having a connection. However, the network is not available for at least one provider to whom the connection may belong.
ERROR_NO_NETWORK There is no network present.
ERROR_NOT_CONNECTED The device specified by lpLocalPath is not redirected.
A universal form of a local drive-based path identifies a network resource in an unambiguous, computer-independent manner. The name can then be passed to processes on other computers, allowing those processes to obtain access to the resource.
The WNetGetUniversalName function currently supports one universal name form: universal naming convention (UNC) names, which look like the following:
Using the example from the preceding description of the lpLocalPath parameter, if the shared network drive is on a server named COOLSERVER, and the share name is HOTSHARE, the UNC name for the network resource whose drive-based name is H:\WIN32\EXAMPLES\SAMPLE.DOC would be
The UNIVERSAL_NAME_INFO data structure contains a pointer to a UNC name string. The REMOTE_NAME_INFO data structure contains a pointer to a UNC name string. It also includes pointers to two other useful strings. A process can pass the REMOTE_NAME_INFO structure's lpszConnectionInfo member into the WNetAddConnection2 function to connect a local device to the network resource, and then append the string pointed to by the lpszRemainingPath member to the local device string. The resulting string can be passed to Win32 functions that use a drive-based path.

Expert Comment

ID: 2805442
Another option is to add a hidden DriveListBox.  When a file is selected, use the drive in DriveListBoxand get the UNC from it.  Just set the Drive property and then read it.  For example:

Drive1.Drive = "h:\"
MsgBox Drive1.Drive

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

LVL 28

Expert Comment

ID: 2805450
HOWTO: Get UNC Path From a Mapped Network Share's Drive Letter


Accepted Solution

GivenRandy earned 200 total points
ID: 2805457
Another option is to add a hidden DriveListBox.  When a file is selected, use the drive in DriveListBoxand get the UNC from it.  Just set the Drive property and then read it.  For example:

Drive1.Drive = File1.Path
MsgBox Drive1.Drive

The Drive property may have brackets around the UNC value, which you can trim.

Author Comment

ID: 2805615
Excellent, thanks GivenRandy for your details and examples!

Also thanks AzraSound for finding that link on Micro$oft's site, I'll check that out as well.

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question