Frage zu Ordner kopieren

[Nogge]

lol, beim nächsten Mal analysiere ich meinen Code genauer^^
DelTree benötigt die Uses "JclFileUtils". Ich hoffe, du hast JCL.

[Henry]

Sagt mir jetzt nichts.
Wenn es bei D6 Prof. standartmäßig dabei ist dann habe ich es, sonst eher nicht ;)

[Nogge]

kk, für das bisschen braucht man auch keine neue Klasse:

Delphi-Quellcode:

function StrCharCount(const S: AnsiString; C: AnsiChar): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(S) do
    if S[I] = C then
      Inc(Result);
end;

Und anstatt DelTree kannste auch RmDir schreiben, wie ich gerade sehe, dann brauchste überhaupt keine JCL-Klasse. Wie gesagt, ist lange her, dass ich diese Procedure geschrieben habe^^.

[padavan]

wäre es eigentlich auch möglich Dateien im Verzeichnis nach Uhrzeit zu filtern nur bestimme nach einer gewissen Uhrzeit zu kopieren?

:roll:

[Nogge]

Ich verstehe deine Frage nicht so ganz. Meinste jetzt das Erstellungsdatum der Datei oder die wirkliche Uhrzeit? Abgesehen davon ist beides möglich, um deine Frage einfach mal ganz simpel zu beanworten^^

[padavan]

Beides ist schonmal gut,

ich hätte jetzt gern Dateien von Ordner a nach Ordner b kopiert, welche aber mit Erstellungsdatum nach einer gewünschten (Einstellbaren) Uhrzeit liegen.
Kann man das gleich in der Shellapi-Funktion FO_COPY oder wie das heißt als Attribut mit reinsetzen???

:firejump:

[Nogge]

Wer sucht, der findet: datei erstellungsdatum

Dann einfach die Function so z.B. benutzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ayear,amonth,aday,ahour,amin,asec,amsec:word;
begin
  DecodeDate(GetCreationTimeOfFile(Edit1.Text),ayear,amonth,aday);
  DecodeTime(GetCreationTimeOfFile(Edit1.Text),ahour,amin,asec,amsec);
  label1.Caption:=inttostr(ayear)+' '+inttostr(amonth)+' '+inttostr(aday)+#10#13+
                  inttostr(ahour)+' '+inttostr(amin)+' '+inttostr(asec);
  { -- leichter, da weniger Code und keine Variablen genutzt werden -- }
  label1.Caption:=DateToStr(GetCreationTimeOfFile(Edit1.Text))+' '+
                  TimeToStr(GetCreationTimeOfFile(Edit1.Text));
end;

Ein Vergleich zw. der aktuellen Uhrzeit und der gewünschten Zeit würde so aussehen:

Delphi-Quellcode:

if TimeToStr(Now) = '13:59:40' then