【vfp开源代码栏目提醒】:网学会员鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“adirprog.prg”一文,供大家参考学习
cFileName=GETFILE()
IF !EMPTY(cFileName)
**指定返回的信息中包含隐藏和系统文件属性信息,如果不使用函数中的“HS”
**参数,不能返回隐藏或
系统文件的属性,只能返回只读和存档文件的属性
nArrayRow=ADIR(aFileAttribute,cFileName,"HS")
IF nArrayRow#0
=MESSAGEBOX(cFileName+"的属性为:"+aFileAttribute(1,5),0+64,"提示")
ELSE
=MESSAGEBOX("不能取得文件属性",0+64,"提示")
ENDIF
ENDIF