開啟網路芳鄰資源對話盒 傳回網路磁碟機在網路芳鄰上的位置 列舉網路芳鄰相關常數 |
傳回網路上的芳鄰與資源 傳回網路磁碟機檔案在網路芳鄰上的路徑 |
函數 | 引數 | 說明 |
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 |
引數內容 | 資源 |
WNet_dwDisplayType_Generic | 一般資源 |
WNet_dwDisplayType_Domain | 網域資源 |
WNet_dwDisplayType_Server | 伺服器資源 |
WNet_dwDisplayType_Shere | 共享資源 |
WNet_dwDisplayType_File | 檔案資源 |
WNet_dwDisplayType_Group |