VFP 愛用者社區

[Ruey]

檢查軟盤機是否有盤

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