+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : تحديد المعرف unc الخاص بجهاز على الشبكة (/showthread.php?tid=6016)
تحديد المعرف unc الخاص بجهاز على الشبكة - RaggiTech - 17-10-12
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله وبركاتهكود :
Private Const NO_ERROR As Long = 0&
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
Function GetUNCPath(ByVal sDrive As String) As String
Dim sBuffer As String
sBuffer = String(255&, vbNullChar)
If WNetGetConnection(sDrive, sBuffer, Len(sBuffer)) = NO_ERROR Then
GetUNCPath = Left$(sBuffer, InStr(1, sBuffer, vbNullChar) - 1)
Else
GetUNCPath = vbNullString
End If
End Function