FUNCTION _LocalName2UNC PARAMETERS tcLocalName LOCAL lcUNCBuffer, lnLength, lcLocalName DECLARE INTEGER WNetGetConnection IN WIN32API ; STRING @ lpLocalName, ; STRING @ lpRemoteName, ; INTEGER @ lplnLength IF EMPTY(tcLocalName) OR TYPE('tcLocalName') <> "C" ERROR 11 ENDIF lcLocalName = ALLTRIM(tcLocalName) IF LEN(lcLocalName) = 1 lcLocalName = lcLocalName + ":" ENDIF lcUNCBuffer = REPL(CHR(0),261) lnLength = LEN(lcUNCBuffer) IF WNetGetConnection(lcLocalName, @lcUNCBuffer, @lnLength) = 0 lcRemoteName = LEFT(lcUNCBuffer,AT(CHR(0),lcUNCBuffer)-1) ELSE lcRemoteName = "" ENDIF RETURN lcRemoteName