AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Frage zu Ordner kopieren

Offene Frage von "Henry"
Ein Thema von Henry · begonnen am 10. Okt 2004 · letzter Beitrag vom 13. Mai 2005
Antwort Antwort
Seite 3 von 3     123   
Nogge

Registriert seit: 15. Jul 2004
336 Beiträge
 
Delphi 7 Professional
 
#21

Re: Frage zu Ordner kopieren

  Alt 5. Apr 2005, 22:31
lol, beim nächsten Mal analysiere ich meinen Code genauer^^
DelTree benötigt die Uses "JclFileUtils". Ich hoffe, du hast JCL.
  Mit Zitat antworten Zitat
Benutzerbild von Henry
Henry

Registriert seit: 7. Okt 2003
Ort: Berlin
120 Beiträge
 
Delphi 6 Professional
 
#22

Re: Frage zu Ordner kopieren

  Alt 5. Apr 2005, 22:35
Sagt mir jetzt nichts.
Wenn es bei D6 Prof. standartmäßig dabei ist dann habe ich es, sonst eher nicht
mfG Henry
  Mit Zitat antworten Zitat
Nogge

Registriert seit: 15. Jul 2004
336 Beiträge
 
Delphi 7 Professional
 
#23

Re: Frage zu Ordner kopieren

  Alt 5. Apr 2005, 22:40
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^^.
  Mit Zitat antworten Zitat
padavan

Registriert seit: 12. Jan 2005
271 Beiträge
 
Delphi 7 Enterprise
 
#24

Re: Frage zu Ordner kopieren

  Alt 12. Mai 2005, 14:39
wäre es eigentlich auch möglich Dateien im Verzeichnis nach Uhrzeit zu filtern nur bestimme nach einer gewissen Uhrzeit zu kopieren?

  Mit Zitat antworten Zitat
Nogge

Registriert seit: 15. Jul 2004
336 Beiträge
 
Delphi 7 Professional
 
#25

Re: Frage zu Ordner kopieren

  Alt 12. Mai 2005, 14:49
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^^
  Mit Zitat antworten Zitat
padavan

Registriert seit: 12. Jan 2005
271 Beiträge
 
Delphi 7 Enterprise
 
#26

Re: Frage zu Ordner kopieren

  Alt 13. Mai 2005, 06:23
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???

  Mit Zitat antworten Zitat
Nogge

Registriert seit: 15. Jul 2004
336 Beiträge
 
Delphi 7 Professional
 
#27

Re: Frage zu Ordner kopieren

  Alt 13. Mai 2005, 12:05
Wer sucht, der findet: Hier im Forum suchendatei 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:
if TimeToStr(Now) = '13:59:40then
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 3     123   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:10 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz