|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
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 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|