如何取得檔案的屬性

出自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