VFP 愛用者社區

mp484 · 註冊時間: 2006-08-08 文章: 84 第 1 樓

使用 Adir() 函數可以查到隱藏檔資料，但是要如何：

1.改變隱藏檔的屬性(例如：取消隱藏設定或設定唯讀)
2.如何Copy隱藏檔至其他路徑

有誰知道該如何做呢？

mp484 · 註冊時間: 2006-08-08 文章: 84 第 2 樓

我自己查到了！跟大家分享！

～～～～使用 API 函數～～～～

DECLARE LONG SetFileAttributes IN win32api STRING cFilename, LONG nType

=SetFileAttributes(cFilename, nType)

nType=-8~7 有各種不同的設定
其中 -4<nType<0 設定為系統檔及各種唯讀或隱藏設定
0=取消唯讀及隱藏設定
1<nType<7 則設定為一般檔案及各種唯讀或隱藏設定

大家試試看阿！

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 3 樓

參考已經寫好的程式
http://www.tek-tips.com/faqs.cfm?fid=3327

LiuRambo · 註冊時間: 2007-11-27 文章: 481 第 4 樓

我自己的這段程式主要用在JMAIL夾帶WORD檔案完成後
偏偏在某些電腦上OFFICE怪怪的
有時檔案關閉後還是會有個WORD的附屬隱藏檔
所以我會用DOS指令去解隱藏並全部刪除

_aa = "attrib -s -h -r " + "C:\" + "所在目錄\" + "*.*"
RUN /N7 &_aa
DELETE FILE "C:\"+DTOENC(DATE(),0)+"\*.*"