Why can't I get the UNC?

[Stanav]

Hello all,
I'm trying to get the UNC path of a mapped network folder, but it somehow
doesn't work. Below is my code, and I really hope that some can help me on
this by pointing out what I did wrong. I greatly appreciate your help.

Imports System.Security

Imports System.Security.Principal.WindowsIdentity

Imports Scripting.FileSystemObjectClass

Imports System.IO.Path

Imports System.Runtime.InteropServices

Imports System.Text

Public Class Form1

Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "

----------------------------------------------------------------------------------------------------

Private Declare Function WNetGetConnection32 Lib "MPR.DLL" Alias _

"WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal _

sbRemoteName As StringBuilder, ByRef cbRemoteName As Integer) As Integer

-----------------------------------------------------------------------------------------------------------

Public Function GetUNCFromMappedDrive(ByVal driveLetter As String) As String

Dim StrUNC As New StringBuilder(256)

If WNetGetConnection32(driveLetter, StrUNC, 256) > 0 Then

'Not a mapped drive

StrUNC.Append(driveLetter)

End If

Return String.Copy(StrUNC.ToString.TrimEnd)

End Function

---------------------------------------------------------------------------------------------------

'Getting filename, file path & current username

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim ofDlg As New OpenFileDialog

With ofDlg

'Filter for JPG files

.Filter = "Image Files (*.jpg)|*.jpg"

If .ShowDialog(Me) = DialogResult.OK Then

'Get filename

TextBox2.Text = IO.Path.GetFileName(.FileName)

'Get file path

TextBox3.Text = GetDirectoryName(.FileName)

End If

End With

'Get current username

TextBox1.Text = GetCurrent.Name

'Get the UNC path of the file

TextBox4.Text = GetUNCFromMappedDrive(TextBox3.Text.Substring(0, 3))

ofDlg.Dispose()

End Sub

End Class

[Dennis]

Someone posted the below code on this newsgroup..it might work but I haven't
tried it.

Public Declare Function WNetGetConnection Lib "mpr.dll" Alias _
"WNetGetConnectionA" (ByVal lpszLocalName As String, _
ByVal lpszRemoteName As String, ByRef cbRemoteName As Integer)
As Integer

Sub Main()
Dim ret As Integer
Dim out As String = New String(" ", 260)
Dim len As Integer = 260
ret = WNetGetConnection("Q:", out, len)
Console.WriteLine(out)
End Sub

--
Dennis in Houston
"Stanav" wrote:

Hello all,
I'm trying to get the UNC path of a mapped network folder, but it somehow
doesn't work. Below is my code, and I really hope that some can help me on
this by pointing out what I did wrong. I greatly appreciate your help.

Imports System.Security

Imports System.Security.Principal.WindowsIdentity

Imports Scripting.FileSystemObjectClass

Imports System.IO.Path

Imports System.Runtime.InteropServices

Imports System.Text

Public Class Form1

Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "

----------------------------------------------------------------------------------------------------

Private Declare Function WNetGetConnection32 Lib "MPR.DLL" Alias _

"WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal _

sbRemoteName As StringBuilder, ByRef cbRemoteName As Integer) As Integer

-----------------------------------------------------------------------------------------------------------

Public Function GetUNCFromMappedDrive(ByVal driveLetter As String) As String

Dim StrUNC As New StringBuilder(256)

If WNetGetConnection32(driveLetter, StrUNC, 256) > 0 Then

'Not a mapped drive

StrUNC.Append(driveLetter)

End If

Return String.Copy(StrUNC.ToString.TrimEnd)

End Function

---------------------------------------------------------------------------------------------------

'Getting filename, file path & current username

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim ofDlg As New OpenFileDialog

With ofDlg

'Filter for JPG files

.Filter = "Image Files (*.jpg)|*.jpg"

If .ShowDialog(Me) = DialogResult.OK Then

'Get filename

TextBox2.Text = IO.Path.GetFileName(.FileName)

'Get file path

TextBox3.Text = GetDirectoryName(.FileName)

End If

End With

'Get current username

TextBox1.Text = GetCurrent.Name

'Get the UNC path of the file

TextBox4.Text = GetUNCFromMappedDrive(TextBox3.Text.Substring(0, 3))

ofDlg.Dispose()

End Sub

End Class

[Stanav]

Thank you, Dennis. You've saved my day.
The code you supplied works perfectly.
Thanks again.
Stanav.
"Dennis" <De****@discussions.microsoft.com> wrote in message
news:A6**********************************@microsof t.com...

Someone posted the below code on this newsgroup..it might work but I
haven't
tried it.

Public Declare Function WNetGetConnection Lib "mpr.dll" Alias _
"WNetGetConnectionA" (ByVal lpszLocalName As String, _
ByVal lpszRemoteName As String, ByRef cbRemoteName As Integer)
As Integer

Sub Main()
Dim ret As Integer
Dim out As String = New String(" ", 260)
Dim len As Integer = 260
ret = WNetGetConnection("Q:", out, len)
Console.WriteLine(out)
End Sub

--
Dennis in Houston
"Stanav" wrote:

Hello all,
I'm trying to get the UNC path of a mapped network folder, but it somehow
doesn't work. Below is my code, and I really hope that some can help me
on
this by pointing out what I did wrong. I greatly appreciate your help.

Imports System.Security

Imports System.Security.Principal.WindowsIdentity

Imports Scripting.FileSystemObjectClass

Imports System.IO.Path

Imports System.Runtime.InteropServices

Imports System.Text

Public Class Form1

Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "

----------------------------------------------------------------------------------------------------

Private Declare Function WNetGetConnection32 Lib "MPR.DLL" Alias _

"WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal _

sbRemoteName As StringBuilder, ByRef cbRemoteName As Integer) As Integer

-----------------------------------------------------------------------------------------------------------

Public Function GetUNCFromMappedDrive(ByVal driveLetter As String) As
String

Dim StrUNC As New StringBuilder(256)

If WNetGetConnection32(driveLetter, StrUNC, 256) > 0 Then

'Not a mapped drive

StrUNC.Append(driveLetter)

End If

Return String.Copy(StrUNC.ToString.TrimEnd)

End Function

---------------------------------------------------------------------------------------------------

'Getting filename, file path & current username

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim ofDlg As New OpenFileDialog

With ofDlg

'Filter for JPG files

.Filter = "Image Files (*.jpg)|*.jpg"

If .ShowDialog(Me) = DialogResult.OK Then

'Get filename

TextBox2.Text = IO.Path.GetFileName(.FileName)

'Get file path

TextBox3.Text = GetDirectoryName(.FileName)

End If

End With

'Get current username

TextBox1.Text = GetCurrent.Name

'Get the UNC path of the file

TextBox4.Text = GetUNCFromMappedDrive(TextBox3.Text.Substring(0, 3))

ofDlg.Dispose()

End Sub

End Class

[Dennis]

Glad it worked. Need to thank the one who posted the code originally but I
didn't save his name.
--
Dennis in Houston
"Stanav" wrote:

Thank you, Dennis. You've saved my day.
The code you supplied works perfectly.
Thanks again.
Stanav.
"Dennis" <De****@discussions.microsoft.com> wrote in message
news:A6**********************************@microsof t.com...

Someone posted the below code on this newsgroup..it might work but I
haven't
tried it.

Public Declare Function WNetGetConnection Lib "mpr.dll" Alias _
"WNetGetConnectionA" (ByVal lpszLocalName As String, _
ByVal lpszRemoteName As String, ByRef cbRemoteName As Integer)
As Integer

Sub Main()
Dim ret As Integer
Dim out As String = New String(" ", 260)
Dim len As Integer = 260
ret = WNetGetConnection("Q:", out, len)
Console.WriteLine(out)
End Sub

--
Dennis in Houston
"Stanav" wrote:

Hello all,
I'm trying to get the UNC path of a mapped network folder, but it somehow
doesn't work. Below is my code, and I really hope that some can help me
on
this by pointing out what I did wrong. I greatly appreciate your help.

Imports System.Security

Imports System.Security.Principal.WindowsIdentity

Imports Scripting.FileSystemObjectClass

Imports System.IO.Path

Imports System.Runtime.InteropServices

Imports System.Text

Public Class Form1

Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "

----------------------------------------------------------------------------------------------------

Private Declare Function WNetGetConnection32 Lib "MPR.DLL" Alias _

"WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal _

sbRemoteName As StringBuilder, ByRef cbRemoteName As Integer) As Integer

-----------------------------------------------------------------------------------------------------------

Public Function GetUNCFromMappedDrive(ByVal driveLetter As String) As
String

Dim StrUNC As New StringBuilder(256)

If WNetGetConnection32(driveLetter, StrUNC, 256) > 0 Then

'Not a mapped drive

StrUNC.Append(driveLetter)

End If

Return String.Copy(StrUNC.ToString.TrimEnd)

End Function

---------------------------------------------------------------------------------------------------

'Getting filename, file path & current username

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim ofDlg As New OpenFileDialog

With ofDlg

'Filter for JPG files

.Filter = "Image Files (*.jpg)|*.jpg"

If .ShowDialog(Me) = DialogResult.OK Then

'Get filename

TextBox2.Text = IO.Path.GetFileName(.FileName)

'Get file path

TextBox3.Text = GetDirectoryName(.FileName)

End If

End With

'Get current username

TextBox1.Text = GetCurrent.Name

'Get the UNC path of the file

TextBox4.Text = GetUNCFromMappedDrive(TextBox3.Text.Substring(0, 3))

ofDlg.Dispose()

End Sub

End Class