获取映射的驱动器VB.net的UNC路径

本文介绍了获取映射的驱动器VB的UNC路径的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我很想从映射的驱动器获取UNC路径. 我尝试使用WNetGetConnection，但它对我不起作用.它返回错误487. 有人知道如何处理此错误或以其他任何方式获取UNC路径吗?

I neet to get UNC path from mapped drive. I tried to use WNetGetConnection, but it doesn't work for me. It returns error 487. Does anybody know how to deal with this error or any other way to get the UNC path?

推荐答案

完全使用@Alex K的P/Invoke建议，我只想发布一种通过net use命令进行管道传输的方法:

Totally go with @Alex K's P/Invoke suggestion, I just wanted to post a hack method of piping through the net use command:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim RemotePath = GetUncSourcePath("v"c) If String.IsNullOrEmpty(RemotePath) Then Trace.WriteLine("there was an error") Else Trace.WriteLine(RemotePath) End If Me.Close() End Sub Private Shared Function GetUncSourcePath(ByVal driveLetter As Char) As String If String.IsNullOrEmpty(driveLetter) Then Throw New ArgumentNullException("driveLetter") If (driveLetter < "a"c OrElse driveLetter > "z") AndAlso (driveLetter < "A"c OrElse driveLetter > "Z") Then Throw New ArgumentOutOfRangeException("driveLetter", "driveLetter must be a letter from A to Z") Dim P As New Process() With P.StartInfo .FileName = "net" .Arguments = String.Format("use {0}:", driveLetter) .UseShellExecute = False .RedirectStandardOutput = True .CreateNoWindow = True End With P.Start() Dim T = P.StandardOutput.ReadToEnd() P.WaitForExit() For Each Line In Split(T, vbNewLine) If Line.StartsWith("Remote name") Then Return Line.Replace("Remote name", "").Trim() Next Return Nothing End Function