Új hozzászólás Aktív témák

• #2002 Fire/SOUL/CD félisten Calogero #2001

  Új Válasz 2014-12-29 09:31:00 #2002

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Calogero #2001 üzenetére

  Nem tudom még aktuális-e a dolog, írtam egy másik megközelítésű megoldást, talán találsz benne hasznos dolgokat, amiket a jövőben is fel tudsz használni/alkalmazni.

  unit CalogeroCopyUnit;
  
  interface
  
  uses
  System.SysUtils, System.StrUtils, Winapi.Windows;
  
  procedure CalogeroCopy;
  
  implementation
  
  procedure CalogeroCopy;
  const
  SourcePath = 'D:\Calogero\A\';
  DestinationPath = 'D:\Calogero\B\';
  var
  DTA: TSearchRec;
  Result: Integer;
  
  begin
  
  ChDir(SourcePath);
  Result:=FindFirst('*.*',faAnyFile,DTA);
  repeat
  while (Result=0) do begin
  if DTA.Name='.' then begin
  Result:=FindNext(DTA);
  Result:=FindNext(DTA);
  Continue;
  end
  else if ((DTA.Attr and faDirectory)<>faDirectory) and
  (AnsiMatchStr(AnsiUpperCase(ExtractFileExt(DTA.Name)), ['.TXT','.DB'])) then begin
  CopyFile(PChar(DTA.Name),PChar(DestinationPath+DTA.Name),False);
  end;
  Result:=FindNext(DTA);
  end;
  until Result<>0;
  
  end;
  
  end.

  UI: Delphi XE3-ban készült, így ha jóval régebbi Delphi-vel dolgozol, akkor a uses szekcióban módosítsd a unit-ok nevét SysUtils, StrUtils, Windows

Új hozzászólás Aktív témák