DirListBox, DriveListBox, FileListBox Controls

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").
Who is Participating?

Improve company productivity with a Business Account.Sign Up

GivenRandyConnect With a Mentor Commented:
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.
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&).

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.
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

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
HOWTO: Get UNC Path From a Mapped Network Share's Drive Letter

ZoplaxAuthor Commented:
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.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.