如何取得檔案的屬性

[[category:檔案與目錄的存取]]

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

以下面這個例子來說:
<pre>
X=Adir(Myml,'C:\TEMP\*.DBF')
</pre>

X 將會是 c:\temp 下的 dbf 文件或目錄個數
Myml是一個有五個元素的陣列，這五個元素所代表的是：
#文件名 　char
#文件大小 數值型
#文件日期 日期型
#文件時間 char
#文件屬性 char
#*A 檔案文件(可讀寫)
#*H 隱藏文件
#*R 只讀文件
#*S 系統文件
#*D 目錄或文件夾

再舉例,我們想得到某個文件的大小或文件的修改日期及屬性：
<pre>
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
</pre>

我們還可利用Adir()檢查某個目錄是否存在：
<pre>
X=Adir(Myml,'C:\ABCDE','D')
IF X=0
  wait wind '該目錄不存在...'
ENDIF
</pre>

當然用下面的更簡單：
<pre>
if file('C:\ABCDE\nul') == .f.
  wait wind '該目錄不存在...'
endif
</pre>