Kopirovani souboru – Delphi – Fórum – Programujte.com

Dobry den, tak mam dalsi dotaz. Tentokrat se tyka kopirovani ale asi to neni tak jednoduchy jak jsem si myslel. Do listboxu by se mely po kliknuti na tlacitko nahrat jmena vsech slozek(mimochodem slozky se jmenujou podle datumu pr.2.4.2007) ve slozce data\stahovani\ , pak po kliknuti na urcity prvek listboxu a na tlacitko se zkopiruji vsechny soubory pod tou slozkou do slozky data\stazena data.
PR:
Data\Stahovani\-28.7.2007
-29.7.2007
-31.7.2007

Listbox1.items: 28.7.2007
29.7.2007
31.7.2007
- ted kdyz oznacim v listboxu jednu polozku(29.7.2007) a zmacknu tlacitko tak se prehraji vsechny soubory z oznacene slozky do jine, pevne stanovene slozky(u me je to data\Stazena data\)

Za vsechyn odpovedi budu hrozne stastny, dikas

Mají se kopírovat i podadresáře?

Ne, tam uz zadny nejsou, presneji tam jsou jen 4 .txt soubory se stejnym nazvem jako ve slozce (data\Stazena data\)

Na kopírování lze použít funkci

CopyFile(SourceFile: PAnsiChar; TargetFile: PAnsiChar; FailIfExists: boolean);

var soubor: TFileListBox;

     i:integer;

    slozka: string;

..

slozka:='C:\...\Data\Stahování\29.7.2007\'; //tady si to doplňování vyřešíš sám

soubory:=TFileListbox.Create(Form1);

soubory.Parent:=Form1;

soubory.Visible:=false;

soubory.Directory:=slozka;

for i:=0 to soubory.Items.count-1 do

  Copy(slozka+soubory.Items.Strings[i], 'C:\Stazena data\'+soubory.Items.Strings[i],true);

soubory.Free;