ordner datum ermittel

[NicoDE]

Ohne abschließendes '\' suchen, dann geht's auch.

[semo]

wieso auch? :zwinker:

[SaFu]

Ok stimmt so gehts

aber bekomme ich jetzt nicht das datum zurück vom VertretungsplanOrdner

Delphi-Quellcode:

procedure TForm7.Button11Click(Sender: TObject);
begin
  datord:= GetDirDate((ExtractFilePath(ParamStr(0)))+'Vertretungspläne');
end;

Ich würde gerne alle Ordner auslessen im Verzeichniss unter dem vertretungsplanordner und sie dann verschieben lassen wenn sie kleiner sind als das aktuelle datum ungefähr so

Delphi-Quellcode:

 if (datord) <= (date) Then
begin
.
.
.

[marabu]

Guten Morgen Sascha,

vielleicht liege ich ja falsch, aber aus dem, was ich von dir hier und an anderer Stelle gelesen habe, weiß ich, dass du in einem Ordner "Vertretungspläne" Unterordner anlegst, deren Namen aus einem Präfix "KW", der Kalenderwoche und der Jahreszahl gebildet werden.

Eine kleine Änderung der Bildungsregel für die Ordnernamen wäre hilfreich: Verbaue zuerst die Jahreszahl und dann die Kalenderwoche und achte auf führende Nullen:

Delphi-Quellcode:

function GetFolderName(dt: TDateTime): string;
begin
  Result := Format('KW%.4d%.2d', [YearOf(dt), WeekOfTheYear(dt)]);
end;

So kannst du die Ordnernamen über einen String-Sort chronologisch sortieren. Hole dir die Unterordner einfach in eine StringList:

Delphi-Quellcode:

procedure GetSubFolders(folder: string; s: TStrings);
var
  sr: TSearchRec;
begin
  folder := IncludeTrailingPathDelimiter(folder);
  if FindFirst(folder + '*.*', faDirectory, sr) = 0 then
  try
    repeat
      if (sr.Name = '.') or (sr.Name = '..') then
        Continue
      else
      if (sr.Attr and faDirectory) = faDirectory then
        s.Add(sr.Name);
    until FindNext(sr) <> 0;
  finally
    FindClose(sr);
  end;
end;

// ...

const
  BASE_FOLDER = 'C:\Daten\Vertretungspläne';
var
  fn: TFileName;
  folders: TStringList;
begin
  folders := TStringList.Create;
  GetSubFolders(BASE_FOLDER, folders);
  folders.Sort;
  // ...
end;

Jetzt kannst du einfach durch die Liste iterieren und alles, was zu alt ist, verschieben. Wozu brauchst du das Datum der Ordner aus dem Dateisystem, wenn es bereits im Ordnernamen enthalten ist? Wenn aber doch, dann bedenke, dass es dort ein CreationDate und ein LastWriteDate gibt.

Alles nur getippt und nicht getestet.

Freundliche Grüße

[SaFu]

Ja genau das habe ich vor ich lasse mir die Ordner in einem ShellTreeView anzeigen, und alle die älter sind als die Aktuelle KW werden verschoben.

Zitat:

Wozu brauchst du das Datum der Ordner aus dem Dateisystem, wenn es bereits im Ordnernamen enthalten ist?

Ich Habe halt gedacht es wäre einfacher darüber weil ich ja die Ordner vergleichen wollte und hätte somit anstatt einen String mit einem Integer einen Integer mit integer verglichen?

Aberr w enn es so geht soll es mir auch recht sein muss mich halt nur jetzt etwas reinarbeiten um das ganze auch zu verstehn.

Zitat:

Verbaue zuerst die Jahreszahl und dann die Kalenderwoche und achte auf führende Nullen:

Ja das ist mir auch aufgefallen wenn ich nämlich einen ordner erstelle mit 2008 und der KW2 und es existiert ein Ordner mit 2007 KW2 ist es nicht mehr nach jahren geordnet.


Wie gesagt werde mir das von dir mal genau anschauen

[SaFu]

Also wenn ich erhlich bin verstehe ich den code nicht ganz :(

[DeddyH]

Hab noch mal eine genauere Version erstellt.

Delphi-Quellcode:

type TZeit = (zCreation, zLastAccess, zLastWrite); //Erstellt, letzter Zugriff, letzte Änderung

function GetDirDate(const s: string;Zeit: TZeit = zCreation): TDateTime;
var Data: TWin32FindData;
    sTime: TSystemTime;
    h: THandle;
begin
  Result := 0;
  ZeroMemory(@Data,SizeOf(Data));
  h := FindFirstFile(PChar(s),Data);
  if h <> INVALID_HANDLE_VALUE then
    begin
      if (Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) > 0 then
        begin
          case Zeit of
            zCreation  : FileTimeToSystemTime(Data.ftCreationTime,sTime);
            zLastAccess: FileTimeToSystemTime(Data.ftLastAccessTime,sTime);
            zLastWrite : FileTimeToSystemTime(Data.ftLastWriteTime,sTime);
          end;
          Result := SystemTimeToDateTime(sTime);
        end;
    end;
  Windows.FindClose(h);
end;

[SaFu]

Hi

Jetzt bin ich total verwirt welcher code macht was, welcher ist besser und wie gehe ich mit dem um, um ein brauchbares ergebnis zu erziehlen

sorry das ich so bescheuert frage kannmir nicht einer den Code erklären??

[marabu]

Hallo Sascha,

du schreibst, dass du meinen Code nicht ganz verstehst. Was genau bereitet dir Schwierigkeiten?

Hast du dich denn inzwischen entschieden, ob du die Zeitangaben aus dem Ordnernamen zurückgewinnen oder doch lieber auf den Zeitstempel des Dateisystem zurückgreifen möchtest?

Grüße nach Bad Offenbach

[SaFu]

Also Praktischer wäre natürlich denn zeitstempel dem ich den Ordner selber gebe wie du ja bereits erwähnt hast(wenn es einfacher ist).

naja ich weis nicht genau wie ich das anwenden soll.

Es nutzt mir auch teilweise nichts wenn ich was kopiere und es dann nichteinmal versteh das meiste wissen was ich über delphi habe, habe ich hier im forum gelernt.

kann man das nicht einfacher gestallten das man alle Ordner in dem Shelltreeview die einen kleinere KW alls das aktuelle datum einfach verschiebt oder muss das so "aufwendig" sein