Folder dato ændring

Lav en rekursiv procedure der kikker op alle mapper og find er den nyeste dato

Hmm, der stod jeg lige af desværre.

Hvordan skal der klares? Delphi er stadig nyt for mig.

Hvordan skal der klares? Delphi er stadig nyt for mig.

Bortset fra syntax'en klares det vel på samme måde, som i andre sprog ;-)

Korrekt.
Men det ved jeg så heller ikke. :)

Er ikke lige i nærheden af en computer med Delphi på, men nedenstående metode har jeg brugt til at rippe samtlige filnavne i en mappe. Den medtager underfoldere rekursivt, hvis IncludeSubDirs er TRUE.



function ExtractFileNames(Dir: string; IncludeSubDirs: boolean): TStringList;

 
  procedure FindAll(const Dir: String; Attr: Integer; List: TStrings);
  var
    Res: TSearchRec;
    EOFound: Boolean;
  begin
    EOFound:= False;
    if FindFirst(Dir, Attr, Res) < 0 then
      Exit
    else
    begin
      while not EOFound do
      begin
        if (Res.Attr and Attr) <> 0 then
        begin
          List.Add(Res.Name) ;
        end;
        EOFound:= FindNext(Res) <> 0;
      end;
    end;
    FindClose(Res) ;
  end;

var
  ADirectoryList: TStringList;
  i, j:          integer;
  AFile:          TStringList;
  tempResult:    TStringList;
begin
  Result := TStringList.Create;
  ADirectoryList := TStringList.Create;

  FindAll(Dir + '*.*', faAnyFile, Result);

  if IncludeSubDirs then
  begin
    FindAll(Dir + '*', faDirectory, ADirectoryList);
    if ADirectoryList.Count > 0 then
    begin
      for i := 0 to ADirectoryList.Count - 1 do
      begin
        if (ADirectoryList.Strings[i] <> '.')
        and (ADirectoryList.Strings[i] <> '..') then
        begin
          tempResult := ExtractFileNames(Dir + ADirectoryList.Strings[i] + '\', IncludeSubDirs);

          for j := 0 to tempResult.Count - 1 do
            Result.Add(tempResult[j]);

          tempResult.Free;
        end;
      end;
    end;
  end;

  // Remove '..' and '.' and directories
  for i := Result.Count - 1 downto 0 do
    if (Result[i] = '..')
    or (Result[i] = '.')
    or (AnsiPos('.', Result[i]) = 0) then
      Result.Delete(i);

  ADirectoryList.Free;
end;

Hvordan samligner du datoen på toplevel mappe og at den først skal slettes efter 31 dage?

Fedeko> Der er ikke meget rekursiv over den procedure

Glem det, jeg havde overset et kald

Der er jo alt for meget kode i den procedure :-)

Jeg siger ikke, at den er genial, men den sene aften, hvor jeg skulle bruge en liste over navnene på samtlige mp3-filer på min NAS (lang historie), der fungerede den helt efter hensigten ;-)

Fedeko: Kan du ligge et svar?

Gerne :-)