フォルダ内で変更のあったファイルを特定するには？ (ID:3590)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

上記の河邦 正さん作コンポーネントのChangeイベント
procedure TForm1.DirMonitor1Change(Sender: TObject);
var
    SR: TSearchRec;
    Res: Integer;
    ListItem: TListItem;
    DT: TDateTime;    //更新時刻
    Year, Month, Day,
    Year2, Month2, Day2: Word;
begin
    ListView1.Clear;
    DecodeDate(Now, Year, Month, Day); //日付分解
    Res := FindFirst(GetCurrentDir+'\*.*', faAnyFile, SR);
    While Res = 0 do
      begin
          //対象がディレクトリのとき次へ
          if SR.Attr = $00000010 then
              begin
              Res := FindNext(SR);
              Continue;
              end;

With ListView1.Items do
          begin
              DT := FileDateToDateTime(SR.Time);   //更新時刻取得
              DecodeDate(DT, Year2, Month2, Day2);
              if Day = Day2 then
                  begin
                  ListItem := Add;
                  ListItem.Caption := SR.Name;
                  ListItem.SubItems.Add( DateToStr(DT)  );
                  end;
              //それ以外はスルー

end;
          Res := FindNext(SR);
      end;
    FindClose(SR);
end;
いまこんな感じです。
TSearchRec型の
FindData: TWin32FindData;
が使えればもっとよくできそうです。
勉強してきます。

←解決時は質問者本人がここをチェックしてください。

戻る