VFP 愛用者社區 :: 觀看文章 - 檢測網路磁碟是否存在(轉貼)

VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.

常見問題

搜尋

會員列表

會員群組

會員註冊

個人資料

登入檢查您的私人訊息

登入

檢測網路磁碟是否存在(轉貼)

VFP 愛用者社區首頁 -> VFP 討論區

發表人

內容

Ruey

註冊時間: 2003-03-12
文章: 1698
來自: tunglo

第 1 樓

發表於: 星期日八月 24, 2003 5:17 pm 文章主題: 檢測網路磁碟是否存在(轉貼)

檢查網路上的路徑是否正確

代碼:

PROC TESTNET
PARA P_RemoteName,P_Password,P_LocalName

Declare Long WNetAddConnection in "mpr.dll" String lpRemoteName,String
lpPassword,String lpLocalName

LOCAL M_RETURNNET
M_RETURNNET=WNetAddConnection(P_RemoteName,P_Password,P_LocalName)

RETURN M_RETURNNET

2、調用：
local m_testnet
m_testnet=TESTNET("\\app_server1\c","","L:")
DO CASE
CASE m_testnet=0
=messagebox("成功!")
CASE m_testnet=5
=messagebox("訪問拒絕!")
CASE m_testnet=8
=messagebox("記憶體不足!")
CASE m_testnet=50
=messagebox("不被支援的函數!")
CASE m_testnet=59
=messagebox("網路錯誤!")
CASE m_testnet=67
=messagebox("網路名無效!")
CASE m_testnet=85
=messagebox("連接已經存在!")
CASE m_testnet=86
=messagebox("口令錯誤!")
CASE m_testnet=487
=messagebox("指針無效!")
CASE m_testnet=1200
=messagebox("本地驅動器名無效!")
otherwise
=messagebox("無效錯誤!")
endcase

_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!

學會VFP使用者社區的搜尋,Code才會更有趣~
#############################

Ruey 在星期三九月 17, 2003 4:42 pm 作了第 1 次修改

回頂端

奔跑的愛情

註冊時間: 2003-08-28
文章: 27

第 2 樓

發表於: 星期四八月 28, 2003 4:11 pm 文章主題:

真有不少好文，樓主真是個高手啊 _________________ delphi vf sql

回頂端

從之前的文章開始顯示:

	VFP 愛用者社區首頁 -> VFP 討論區	所有的時間均為台北時間 (GMT + 8 小時)
第1頁(共1頁)

您無法在這個版面發表文章
您無法在這個版面回覆文章
您無法在這個版面編輯文章
您無法在這個版面刪除文章
您無法在這個版面進行投票
您無法在這個版面附加檔案
您無法在這個版面下載檔案