如何取得檔案的屬性

出自VFP Wiki

跳轉到: 導航, 搜尋


VFP為我們提供了一個非常強大的函數——Adir(),其語法為: Adir(ArrayName [, cFileSkeleton [, cAttribute [, cCreatorType]]])

以下面這個例子來說:

X=Adir(Myml,'C:\TEMP\*.DBF')

X 將會是 c:\temp 下的 dbf 文件或目錄個數 Myml是一個有五個元素的陣列,這五個元素所代表的是:

  1. 文件名  char
  2. 文件大小 數值型
  3. 文件日期 日期型
  4. 文件時間 char
  5. 文件屬性 char
    • A 檔案文件(可讀寫)
    • H 隱藏文件
    • R 只讀文件
    • S 系統文件
    • D 目錄或文件夾

再舉例,我們想得到某個文件的大小或文件的修改日期及屬性:

X=Adir(Myml,'C:\TEMP\abc.DBF')
IF X<>0
  wjsize=Myml(1,2) &&取得文件大小
  wjdate=Myml(1,3) &&取得修改日期及屬性
  wjAttr=Myml(1,5) &&取得文件屬性
ELSE
  wait window '沒有您指定的文件'
ENDIF

我們還可利用Adir()檢查某個目錄是否存在:

X=Adir(Myml,'C:\ABCDE','D')
IF X=0
  wait wind '該目錄不存在...'
ENDIF

當然用下面的更簡單:

if file('C:\ABCDE\nul') == .f.
  wait wind '該目錄不存在...'
endif