>FUNCTION ConvertDrive2UNC >LPARAMETERS vLocalName >LOCAL lcUNCBuffer as String, liLength as Integer, lcLocalName as String, lcRemoteName as String > >DECLARE INTEGER WNetGetConnection IN WIN32API ; > STRING @ lpLocalName, ; > STRING @ lpRemoteName, ; > INTEGER @ lpliLength > >* Just one letter? Then generate a Drivenumber >IF LEN(m.vLocalName) = 1 > m.vLocalName = m.vLocalName + [:] >ENDIF > >lcUNCBuffer = REPL(CHR(0),261) >liLength = LEN(lcUNCBuffer) > >IF WNetGetConnection(m.vLocalName, @lcUNCBuffer, @liLength) = 0 > lcRemoteName = LEFT(lcUNCBuffer,AT(CHR(0),lcUNCBuffer)-1) >ENDIF > >RETURN lcRemoteName > >ENDFUNC >