Õâ ¼¸ ¸ö APIµÄ Éù Ã÷ ¿É ÒÔ ÔÚ Win32api.txtÕÒ µ½ ¡£ Ê¹ ÓÃ Ëµ Ã÷ ¿É ÒÔ ²Î ¿¼ Win32SDK.hlpµÄ °ï Öú ¡£ ÏÂ Ãæ ÎÒ ¸ø ³ö Ò» ¸ö Àý ×Ó £¬ Ëü ÊÇ µÃ µ½ Ò» ¸ö Íø Âç Çý ¶¯ Æ÷ µÄ UNCÂ· ¾¶ (¡° \\·þ Îñ Æ÷ \¹² Ïí Â· ¾¶ ¡± )¡£ 
     
     ' 32-bit Function version. 
     ' Enter this declaration on a single line. 
     Declare Function WNetGetConnection32 Lib "MPR.DLL" Alias _ 
     "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal _ 
     lpszRemoteName As String, lSize As Long) As Long 
     
     ' 32-bit declarations: 
     Dim lpszRemoteName As String 
     Dim lSize As Long 
     
     ' Use for the return value of WNetGetConnection() API. 
     Const NO_ERROR As Long = 0 
     
     ' The size used for the string buffer. Adjust this if you 
     ' need a larger buffer. 
     Const lBUFFER_SIZE As Long = 255 
     
     Sub GetNetPath() 
     
     ' Prompt the user to type the mapped drive letter. 
     DriveLetter = UCase(InputBox("Enter Drive Letter of Your Network" & _ 
     "Connection." & Chr(10) & "i.e. F (do not enter a colon)")) 
     
     ' Add a colon to the drive letter entered. 
     DriveLetter = DriveLetter & ":" 
     
     ' Specifies the size in charaters of the buffer. 
     cbRemoteName = lBUFFER_SIZE 
     
     ' Prepare a string variable by padding spaces. 
     lpszRemoteName = lpszRemoteName & Space(lBUFFER_SIZE) 
     
     ' Return the UNC path (\\Server\Share). 
     lStatus& = WNetGetConnection32(DriveLetter, lpszRemoteName, _ 
     cbRemoteName) 
     
     ' Check to see if WNetGetConnection() succeeded. WNetGetConnection() 
     ' returns 0 (NO_ERROR) if it succesfully retrieves the UNC path. 
     If lStatus& = NO_ERROR Then 
     
     ' Display the UNC path. 
     MsgBox lpszRemoteName, vbInformation 
     
     Else 
     ' Unable to obtain the UNC path. 
     MsgBox "Unable to obtain the UNC path.", vbInformation 
     End If 
     
     End Sub 
<END>
