Kopier hel mappe

brug dette fra borrisholt:

http://www.borrisholt.com/FileIO/DelphiSource/Filehandling.zip

den kan kopirer og det med at slette kan du bruge:

RemoveDir

/ZIRON

Du kan evt. Bruge FindFirst /FindNext

/Martin

der ligger også delete funktion med det filehandling fra borrisholt...

så er det jo løst, JUBII...

/ZIRON

Eller bruge dette :

procedure ScanFiles( const aPath : String; Subs : Boolean; const L : TStrings );
VAR
  S  : TSearchRec;
  CPath : String;
begin
  ChDir(aPath);
  GetDir(0,CPath);

  if FindFirst(IncludeTrailingBackslash(CPath)+\'*.*\',faANYFILE,S) = 0 then
  repeat
      if ( S.Attr and faSysFile = 0 ) and ( S.Attr and faDIRECTORY = 0 ) and
        ( S.Attr and faVolumeID = 0 ) and ( S.Name[1] <> \'.\' ) and ( S.Name[1] <> \'..\' ) then
      begin
        // Do the stoff here
          L.Add(IncludeTrailingBackslash(CPath)+S.FindData.cFileName);
      end;
  until FindNext(S) <> 0;
  FindClose(S);

  if Subs and ( FindFirst(\'*.*\',faDIRECTORY,S) = 0 ) then
  repeat
      if ( S.Attr and faDIRECTORY <> 0 ) and ( S.Name[1] <> \'.\' ) and ( S.Name[1] <> \'..\' ) then
      begin
        ScanFiles(IncludeTrailingBackslash(CPath)+S.Name,Subs,L);
        ChDir(\'..\');
      end;
  until FindNext(S) <> 0;
  FindClose(S);
end;


VAR
  L : TStringList;

begin
  L := TStringList.Create;
  ScanFiles(\'C:\\Temp\\\',TRUE,L);
  // L indeholder alle filler med path
end;

/Martin

Martin,,,,lille fejl i din procedure ;)

\"and ( S.Name[1] <> \'..\' ) then\"

Position [1] kan vel umuligt indeholde 2 chars ;)

Rigtig, lidt gl. kode jeg må lige checke om jeg har fået rettet det der hvor jeg bruger det, meeen.. mon ikke jeg har :)

Takker for opmærksomheden

/Martin

En anden ting jeg kom i tanken om er, at et bibliotek som er \"ok\", godt kan have et \'.\' på første position i NTFS.

Så de 2 [1]\'ere burde nok fjernes.
Selvom det nok er temmelig sjældent med et bib (ex. \'.hejhej\') så er det meget rart at få koden på plads ;)

takker for point, og håber du kan bruge det?

/ZIRON