資訊好好玩

0愛的鼓勵 0訂閱站台

  來源：璉璉     培基語言網頁網路芳鄰篇    
  版本：VB6   /   VB5    
   
  --------------------------------------------------------------------------------  
     
   
  在上一個單元   問題419：如何取得網路磁碟機的   UNC   Path？   中，我們已經討論過網路磁碟機的   UNC   表示方法，也就是取得它在網路芳鄰上的位置，那如果是要表示一個檔案呢？一個在任何一部網路磁碟機上的檔案，當然，您可以先取得該網路磁碟機的   UNC   Path，然後再來做字串的拼湊，以得到該檔案在網路芳鄰上的路徑。  
   
  但是，您也可以直接使用   WNetGetUniversalName   API   來求得答案！今天的範例程式是直接從璉璉的網站   培基語言   的   網路芳鄰篇   中截取出來的，我只是花一點時間做一個小小的範例讓網友們下載練習而已！  
   
  程式碼如下：  
   
  Private   Declare   Function   WNetGetUniversalName   Lib   "mpr"   Alias   "WNetGetUniversalNameA"   _  
  (ByVal   lpLocalPath   As   String,   ByVal   dwInfoLevel   As   enuInfoLevel,   _  
  ByVal   lpBuffer   As   String,   lpBufferSize   As   Long)   As   Long  
   
  Private   Enum   enuInfoLevel  
          Universal_Name_Info_Level   =   1  
          Remote_Name_Info_Level   =   2  
  End   Enum  
   
  Private   Const   BufferString   =   256  
   
  Public   Function   myWNetGetUniversalName(ByVal   lpLocalPath   As   String)   As   String  
          Dim   summy   As   Long  
          Dim   lpUniversalName   As   String  
          lpUniversalName   =   String(BufferString,   0)  
           
          summy   =   WNetGetUniversalName(lpLocalPath,   Universal_Name_Info_Level,   lpUniversalName,   BufferString)  
          lpUniversalName   =   Mid(lpUniversalName,   InStr(lpUniversalName,   "\\"))  
          myWNetGetUniversalName   =   Left(lpUniversalName,   InStr(lpUniversalName,   Chr(0))   -   1)  
  End   Function  
   
  Private   Sub   Command1_Click()  
          Text2.Text   =   myWNetGetUniversalName(Text1.Text)  
  End   Sub