Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Delphi programozás

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!

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

  • #2002 Fire/SOUL/CD félisten Calogero #2001
    Új Válasz #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