发信人: foxzz()
整理人: hunter__fox(2002-03-16 21:48:54), 站内信件
|
DECLARE LONG GetFileAttributes IN win32api STRING lpFileName
DECLARE LONG SetFileAttributes IN win32api STRING lpFileName, LONG dwFileAttributes
&& 设置只读
=SetFileAttributes("c:\temp\a.dbf", BitOr(GetFileAttributes("c:\temp\a.dbf"), 1))
&& 设置隐藏
=SetFileAttributes("c:\temp\a.dbf", BitOr(GetFileAttributes("c:\temp\a.dbf"), 2))
----
天行健，君子以自强不息
|
|