Imports System.IO Module Module1 Public Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnection" (ByVal localName As String, ByVal remoteName As Text.StringBuilder, ByRef length As Integer) As Integer Sub Main() Dim lcDrive As String = "Y:" Dim lnresult As Integer = 0 Dim lcUNCBuffer = New Text.StringBuilder(1025) Dim lnLength = 1024 lnresult = WNetGetConnection(lcDrive, lcUNCBuffer, lnLength) Console.WriteLine(lnresult) Console.WriteLine(lcUNCBuffer.ToString) End Sub End Module