|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 1 樓
|
發表於: 星期三 八月 13, 2003 10:54 am 文章主題: 檢查軟盤機是否有盤 |
|
|
檢查軟盤機是否有盤
001: ***************************************************************
002: *-- 程式名: CHECKDISK.PRG
003: *-- 原作者: Paul G. Brown
004: *-- 漢化改進:小餘
005: *-- 功能: 檢查指定驅動器內是否插盤,或者該盤是否爲空盤。
006: *-- 還能校驗是否防寫
007: *-- 參數: lcDrive - 校驗驅動器名
008: *-- llBlankDisk - 檢查軟碟是否爲空
009: ***************************************************************
010:
011: #DEFINE TRUE .T.
012: #DEFINE FALSE .F.
013:
014: LPARAMETER lcDrive, llBlankDisk
015:
016: IF TYPE('lcDrive') # 'C' OR LEN(lcDrive) # 1 OR EMPTY(lcDrive)
017: *!* 僅允許驅動器名爲一個字母且不帶“:”
018: RETURN FALSE
019: ENDIF
020:
021: IF DiskSpace(lcDrive) < 0
022: *!* 首先校驗驅動器內是否有盤
023: *!* 若沒有,則Diskspace() 返回 -1
024: *!* read from the disk for some reason
025: ?? CHR(7)
026: CHOI=MESSAGEBOX("請放入軟碟!",5+48,"資訊提示")
027: *!CHOI=4 重試
028: *!CHOI=2 取消
029: RETURN FALSE
030: ENDIF
031:
032: *!* 下一步在該盤中建立一文件
033: *!* 若該軟碟已防寫,則FCREATE失敗
034: *!* 否則須刪除我們建立的0位元組文件
035:
036: LOCAL lnHandle
037:
038: lnHandle = FCREATE(lcDrive+':\text.txt')
039:
040: IF lnHandle > -1
041: = FCLOSE(lnHandle)
042: DELE FILE (lcDrive+':\text.txt')
043: ELSE
044: ?? CHR(7)
045: CHOI=MESSAGEBOX( "請打開軟碟防寫!",5+48,"資訊提示")
046: RETURN FALSE
047: ENDIF
048:
049: IF llBlankDisk
050: *!* 我們不想在軟碟上有任何文件,那麽,
051: *!* 就保證磁片是空的.
052: LOCAL laFiles[1]
053: IF ADIR(laFiles,lcDrive+":\*.*",'sdh') > 0
054: RETURN FALSE
055: ENDIF
056: ENDIF
057:
058: RETURN TRUE _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|