This might be of use ...

Note: The variable "rcUncFileName" is the mapped drive path .. goes into the GetUncPath function and is returned by reference as the UNC path for that mapped name - hence the name seems odd.

DECLARE INTEGER WNetGetConnection IN WIN32API ; STRING @lpLocalPath, ; STRING @lpBuffer, ; INTEGER @lpBufferSize

*- Returns -1 if fails. lnStatus = getuncpath(@rcUncFileName)

GetUNCPath ...

LPARAMETERS rcmappedpath, vnbuffersize

* set up some variables so the appropriate call can be made LOCAL lclocalpath, lcbuffer, lnbuffersize, lnresult, lcstructurestring, lcreturnvalue LOCAL lcdrive, lcpath, lcMachinename

STORE -1 TO lnResult STORE "" TO lclocalpath, lcbuffer, lnbuffersize, lnresult, lcstructurestring, lcreturnvalue, lcdrive, lcpath

IF VARTYPE(m.rcmappedpath) = "C"

* split up the passed path to get just the drive * just take the first two characters - we'll put it all back together later. If the first two characters * are not a valid drive, that's OK. The error value returned from the function call will handle it. * case statement ensures we don't get the "cannot access beyond end of string" error DO CASE CASE LEN(m.rcmappedpath) > 2 lcdrive = LEFT(m.rcmappedpath, 2) lcpath = SUBSTR(m.rcmappedpath, 3) CASE LEN(m.rcmappedpath) <= 2 lcdrive = m.rcmappedpath lcpath = "" ENDCASE

* set to +1 to allow for the null terminator lnbuffersize = IIF(VARTYPE(m.vnBufferSize) = "N", m.vnbuffersize, 500) + 1 lclocalpath = m.lcdrive lcbuffer = SPACE(m.lnbuffersize)

* now call the dll lnresult = WNetGetConnection(@lclocalpath, @lcbuffer, @lnbuffersize) *--------------------------------------------------------------------------- ------------------------------------------- *- WNetGetConnection return codes *--------------------------------------------------------------------------- ------------------------------------------- *- -1 Mapped path (parameter) is not character *- 0 Success *- 50 The dwInfoLevel parameter was set to 0x00000001 (UNIVERSAL_NAME_INFO_LEVEL) *- but the network provider does not support UNC names. This function is not supported by any of the network providers. *- 234 The buffer pointed to by lpBuffer is too small. *- The function sets the variable pointed to by lpBufferSize to the required buffer size. *- 1200 The string pointed to by lpLocalPath is invalid. *- 1201 There is no current connection to the remote device, but there is a remembered (persistent) connection to it. *- 1203 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. *- 1208 A network-specific error occurred. Use the WNetGetLastError function to obtain a description of the error. *- 1222 There is no network present. *- 2250 The device specified by lpLocalPath is not redirected. *--------------------------------------------------------------------------- -------------------------------------------

DO CASE CASE INLIST(m.lnresult, 0, 1201) *- string translated successfully lcstructurestring = ALLTRIM(m.lcbuffer) rcmappedpath = LOWER(LEFT(m.lcstructurestring, AT(CHR(0), m.lcstructurestring) - 1) + m.lcpath) *- Local drives to not translate correctly to UNC with this function. The code below corrects the string to have the *- machineid included as part of the UNC path. IF ATC(":", m.rcmappedpath) = 2 lcMachinename = LOWER(GETWORDNUM(SYS(0), 1, "#")) rcmappedpath = "\" + RTRIM(m.lcMachinename) + "" + LEFT(m.rcmappedpath, 1) + "$" + SUBSTR(m.rcmappedpath, 3) ENDIF CASE m.lnresult = 234 *- The buffer pointed to by lcbuffer is too small. lnresult = getuncpath(@rcmappedpath, m.lnbuffersize + 100) CASE m.lnresult = 2250

*- Is this a local drive ? IF ATC(":", m.rcmappedpath) = 2 AND spDIRECTORY(LEFT(m.rcmappedpath, 2), 1)

lcMachinename = LOWER(GETWORDNUM(SYS(0), 1, "#")) rcmappedpath = "\" + RTRIM(m.lcMachinename) + "" + LEFT(m.rcmappedpath, 1) + "$" + SUBSTR(m.rcmappedpath, 3)

*- Set this to be a valid drive so return value indicates this is a drive with UNC mapping. lnresult = 0

ENDIF ENDCASE

ENDIF

RETURN m.lnResult

-----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Ted Roche Sent: Tuesday, 11 April 2017 8:11 AM To: profoxtech@leafe.com Subject: Re: Easy way to get UNC from drive mapping?

For a hack, you can shell out to a command window, issue NET USE and capture the output, and parse that.

On Mon, Apr 10, 2017 at 5:15 PM, Mike mike@ggisoft.com wrote:

FWIW, the REGISTRY solution you sent a link to doesn't work well for me.

I have 2 mapped drives to a local server (same subnet as my workstation) and 4 mapped drives to remote servers via VPN.

The REGISTRY key you send the link to only has one of the 6 mappings.

I suspect there's other sources, but sorry, I don't know what they are.

Mike Copeland

mbsoftwaresolutions@mbsoftwaresolutions.com wrote:

...

I use GETFILE() to select a file from the network. I want the resulting filename (saved elsewhere) to have the UNC drive mapping instead of the mapped drive letter. Just wanted to check to see if anyone has this before I stick-build it using registry classes. (See https://pattersonsupport.custhelp.com/app/answers/detail/a_id/8981/~/ viewing-the-unc-path-for-a-mapped-drive)

Thanks! --Mike

[excessive quoting removed by server]

mbsoftwaresolutions@mbsoftwaresolutions.com wrote:

On 2017-04-10 17:15, Mike wrote:

...

FWIW, the REGISTRY solution you sent a link to doesn't work well for me.

I have 2 mapped drives to a local server (same subnet as my workstation) and 4 mapped drives to remote servers via VPN.

The REGISTRY key you send the link to only has one of the 6 mappings.

I suspect there's other sources, but sorry, I don't know what they are.

Mike Copeland

How do they appear in the registry under that key? Or they don't?

They don't. That R-key has just one mapping listed out of the 6 I use.

Methinks Microsoft moved the cheese...

Mike