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; 

如果以上不會修改，我想還是早點放棄寫程式了....

我以前最討厭這句話了每次看到這句話我就一定要自己弄懂~~~
arrow
arrow
    全站熱搜

    kuraki5336 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄