網路芳鄰模組 (Windows Network)

開啟網路芳鄰資源對話盒
傳回網路磁碟機在網路芳鄰上的位置
列舉網路芳鄰相關常數
傳回網路上的芳鄰與資源
傳回網路磁碟機檔案在網路芳鄰上的路徑

開啟網路芳鄰資源對話盒

函數 引數 說明
myWNetConnectionDialog (ResourceType) 可省略 開啟連線網路芳鄰資源對話盒,預設值為 WNet_Disk ,餘參見列舉常數 enuWinNet_dwType

函數輸入時,會與 VB 其他函數相同,會跳出快選視窗,目前僅有 WNet_Disk 、 WNet_Print 有作用,執行畫面如下

myWNetDisconnectDialog(ResourceType) 可省略 開啟中斷網路網路芳鄰資源對話盒,引數說明同上,若不輸入引數,預設開啟網路磁碟機,執行畫面如下

函數輸入畫面

連線網路磁碟機對話盒

中斷網路磁碟機對話盒

傳回網路上的芳鄰與資源

函數名:myWNetEnumResource 傳回網路芳鄰陣列

引數清單:

引數 可省略 預設值 說明
dwScope WNet_GlobalNet 參見列舉常數 enuWinNet_dwScope,設定搜尋範圍
dwType WNet_Any 參見列舉常數 enuWinNet_dwType,設定搜尋型態
dwUsage WNet_Usage_Any 參見列舉常數 enuWinNet_dwUsage,設定搜尋資源
dwDisplayType WNet_dwDisplayType_Generic 參見列舉常數 enuWinNet_dwDisplayType,設定傳回值範圍
ResourceName 資源名,省略則搜尋網路芳鄰,可設為網域或伺服器電腦名稱
SearchSub False 是否搜尋子資源

使用範例:

tr=myWNetEnumResource(,,,,,True) ' 傳回網路芳鄰下所有的資源,並搜尋子資源直至末端資源
或 tr=myWNetEnumResource(,,,,"風雨災害實驗室") ' 傳回網路芳鄰網域風雨災害實驗室下所有的伺服器
或 tr=myWNetEnumResource(,WNet_Print,,,"\\tsengwen") ' 傳回網路芳鄰 tsengwen伺服器下所有印表機資源
for i=LBound(tr) to UBound(tr)
 Debug.Print tr(i)
Next i

註解:網路芳鄰搜尋頗慢,別誤以為當機,StringToPointer、PointerToString 請參見字串處理模組

傳回網路磁碟機在網路芳鄰上的位置

函數名:myWNetGetConnection 傳回網路芳鄰位置字串

引數:網路磁碟機字串

使用範例:

Debug.Print myWNetGetConnection("H:") ' 傳回 \\FEITSUI\FTPROOT

傳回網路磁碟機檔案在網路芳鄰上的路徑

函數名:myWNetGetUniversalName 傳回網路芳鄰路徑字串

引數:網路磁碟機檔案字串

使用範例:

Debug.Print myWNetGetUniversalName("H:\Index.txt") ' 傳回 \\FEITSUI\FTPROOT\Index.txt

列舉網路芳鄰相關常數

列舉常數:enuWinNet_dwScope

引數內容 資源
WNet_Connected 正連線的資源
WNet_GlobalNet 網路上所有的資源
WNet_Remembered 曾經連線的資源

列舉常數:enuWinNet_dwType

引數內容 資源
WNet_Any 無反應
WNet_Disk 網路磁碟機
WNet_Print 網路印表機
WNet_UnKnown 不明網路資源

列舉常數:enuWinNet_dwUsage

引數內容 資源
WNet_Usage_Any 任一資源
WNet_Usage_Connectable  
WNet_Usage_Container 收納器資源,例如說網域或是伺服器都有子資源
WNet_Usage_Resource 自訂傳回值,可用資源
WNet_Usage_ComputerUnCache 自訂傳回值,電腦名或該電腦資源尚未快取
WNet_Usage_Reserved  

列舉常數:enuWinNet_dwDisplayType

引數內容 資源
WNet_dwDisplayType_Generic 一般資源
WNet_dwDisplayType_Domain 網域資源
WNet_dwDisplayType_Server 伺服器資源
WNet_dwDisplayType_Shere 共享資源
WNet_dwDisplayType_File 檔案資源
WNet_dwDisplayType_Group