Windows 7 änderungsdatum

[WizoHulk]

in den meisten fällen sind es bei mir nur Ordner und bei Dateien müsste ich jedes mal nachschaun ob eine neue Datei hinzugekommen ist.
Weiß net ob das so die Lösung ist.

Die Anwendung soll mir bloß daten wegsichern. zb. Ordner mit Dokumenten oder Bilder
von d:\Bilder nach f:\Bilder Backup\

[DeddyH]

Wieso wertest Du nicht einfach das Archiv-Attribut aus, dazu ist es ja da?

[WizoHulk]

Archiv Attribut kenne ich nicht, noch nie von gehört.
Hast du nen Link wo das gut erklärt wird?

Soll das etwa das Häckchen sein, was man bei den Ordner einstellungen macht?

[DeddyH]

TSearchRec, da dann die Beschreibung zum Attr-Feld

[edit] Das ist kein "Häkchen". Beschreibung auf Wikipedia [/edit]

[WizoHulk]

ich habe jetzt diesen Quellcode gefunden, haut auch soweit hin alles, was ich jetzt aber net
ich kann aber damit doch nicht überprüfen, ob was neues in den Ordner verändert wurde.

Oder doch?

jetzt bin ich verwirrt...

Delphi-Quellcode:

function TForm1.GetFileAttributes(const FileName: string): TFileAttributes;
var srec: TSearchRec;
begin
  result:=[];
  if FindFirst(FileName, faDirectory, srec) = 0 then begin
    try
      if (srec.Attr and faReadOnly)>0 then result:=result+[ReadOnly]; //Schreibgesch. Datei 1
      if (srec.Attr and faHidden)>0 then result:=result+[Hidden]; //Verborgene Datei
      if (srec.Attr and faSysFile)>0 then result:=result+[SysFile]; //Systemdatei
      if (srec.Attr and faVolumeId)>0 then result:=result+[VolumeId]; //Laufwerks-ID
      if (srec.Attr and faDirectory)>0 then result:=result+[Directory]; //Verzeichnis
      if (srec.Attr and faArchive)>0 then result:=result+[Archive]; //Archivdatei
      if (srec.Attr and faAnyFile)>0 then result:=result+[AnyFile]; //Beliebige Datei
    finally
      FindClose(srec);
    end;
  end;
end;




procedure TForm1.Button1Click(Sender: TObject);
var
   fa: TFileAttributes;
begin
  fa:=GetFileAttributes('C:\Dokumente und Einstellungen\benutzer\Desktop\Neuer Ordner');
  if Archive in fa then
    ShowMessage('Archiviert')
  else
    ShowMessage('Nicht Archiviert');
end;

[Coder]

mhh, ja ich weiß nicht...
also Du hast eine FESTGELEGTE LISTE von Ordnern (also, man kann einstellen, welche Ordner incl. Unterordnern "überwacht" werden sollen?).
Dann lies doch auch das Datum und die Zeit der zum letzten Sicherungspunkt existenten Unter-Ordner dazu aus und speichere das mit in einer kleinen Textdatei

C:\EigeneDateien\dämlicheFotos, 07.01.2011, 13:44
C:\EigeneDateien\peinlicheFotos, 07.01.2011, 16:23
C:\EigeneDateien\Delphiprogramme, 018.01.2011, 09:17

und bei den Dateien mußte das auch jeweils machen.
je Unterordner/pfad.

und dann bei jedem Start abgleichen.


mhh, wie? unter win7 wird das Änderungsdatum der Ordner nicht mehr aktualsiert, nachdem eine Datei darin erzeugt/gelöscht/kopiert,/Verändert (größe) wurde?

Anm.: die Zeit der nächst darüberligenden Ordner wird nicht verändert, wenn in einem Unterordner eine Datei verändert wird. Das ist auch unter XP schon so, soweit ich feststellen konnte.
Dagegen hilft nur scannen der Ordner auf Dateien und vergleich mit der o.g. Liste.

[DeddyH]

Man kann doch rekursiv das Verzeichnis durchlaufen und die enthaltenen Dateien daraufhin prüfen, ob das Archiv-Attribut gesetzt ist. Falls ja, Datei kopieren und Archiv-Attribut wieder entfernen.