Hallo. Ich programmiere gerade an einer Backuplösung. Diese soll auch Dateien in versteckten Ordnern sichern wie z.B. den Inhalt der "__history" Ordner von Delphi-Projekten.

Leider listed die Funktion die ich benutze diese nicht und ich habe dazu auch nichts im Netz gefunden.
Hier ist die Funktion die ich nutze:

zusammenfalten · markieren

Delphi-Quellcode:

function ListFilesRecursive(Path, Mask: String; ShowPath: Boolean): TStringList;
var
  SR: TSearchRec;
  Erg, I: Integer;
  RelDir, TempStr : String;
  TempList: TStringList;
begin
  if Path[length(Path)] <> '\' then Path:=Path + '\';
  RelDir:=ExtractFilePath(Mask);
  Mask:=ExtractFileName(Mask);
  result:=TStringList.Create;
  TempList:=TStringList.Create;
  Erg:=FindFirst(Path + RelDir + '*.*', faDirectory, SR);
  while Erg=0 do
    begin
      if (SR.attr and faDirectory) <> 0 then
       if SR.Name[1] <> '.' then
        begin
          TempList.Assign(ListFilesRecursive(Path, RelDir + SR.Name + '\' + Mask, ShowPath));
          for I:=0 to TempList.Count-1 do
            begin
              TempStr:=TempList[I];
              if ShowPath and not (TempStr[2]=':') then TempStr:=Path+TempStr;
              result.Add(TempList[I]);
            end;
        end;
      Erg:=FindNext(SR);
    end;
  Erg:=FindFirst(Path + RelDir + Mask, $27, SR);
  {Das Attribut $27 bedeutet alle echten Dateien}
  while Erg = 0 do
    begin
      if not ShowPath then result.Add(RelDir + SR.Name)
       else result.Add(Path+RelDir + SR.Name);
      Erg:=FindNext(SR);
    end;
  SysUtils.FindClose(SR);
  TempList.Free;
end;

Mein Aufruf der Funktion:

markieren

Delphi-Quellcode:

procedure whatever;
var
  sl: TStringList;
begin
  sl:=ListFilesRecursive('c:\whatever\', '*.*', true);
  ...
  FreeAndNil(sl);
end;

Vielen Dank & Grüße

http://www.delphipraxis.net/33234-fi...eichnisse.html

Zitat von vergessen:

http://www.delphipraxis.net/33234-fi...eichnisse.html

Ich finde keine Lösung in diesem Thread zu meinem Problem...

Versteckte/Schreibgeschützte Dateien werden ja gefunden, nur versteckte Ordner und deren Inhalte nicht...

Versuch es einmal mit dieser Konstanten:

markieren

Delphi-Quellcode:

const
  faNewAnyFileEx = $00017FFF;

Die benutzt Du zum Suchen und fragst anschließend das faDirectory-Attribut ab.

dir fehlen bei FindFirst die beiden Argumente: faHidden und faSysFile damit du versteckte Dateien/Ordner und System-Dateien/Ordner bekommst.

Bernhard

Zitat von DeddyH:

Versuch es einmal mit dieser Konstanten:

markieren

Delphi-Quellcode:

const
  faNewAnyFileEx = $00017FFF;

Die benutzt Du zum Suchen und fragst anschließend das faDirectory-Attribut ab.

Zitat von rollstuhlfahrer:

dir fehlen bei FindFirst die beiden Argumente: faHidden und faSysFile damit du versteckte Dateien/Ordner und System-Dateien/Ordner bekommst.

Bernhard

Danke euch, damit klappt es nun .