var
sr : TSearchRec;
path, mask :String;
iAttributes :integer;
begin
path := 'C:\xml\';
mask := '*.*';
iAttributes := faArchive;
if FindFirst(Path + mask, iAttributes, sr ) = 0 then
begin
Repeat
IWMemo1.Lines.Add(path + sr.Name); //可得全部的清單
Until
FindNext(sr) <> 0;
FindClose(sr);
end;
要計數就在自己算瞜。
當然啦 如果要依時間排序
sr.FindData.ftLastWriteTime;
如果以上不會修改，我想還是早點放棄寫程式了....
我以前最討厭這句話了每次看到這句話我就一定要自己弄懂~~~
全站熱搜
留言列表
