🚀 go-pugleaf

".-Coder-." <d.cox@planetinternet.be> wrote in message news:<3e9ba902$0$12907$ba620e4c@reader1.news.skynet.be>...
> Op gebied van Delphi ben ik momenteel nog een echte leek. Ik zou graag, 
> net zoals mogelijk is in DOS, met behulp van *.* alle files van een 
> bepaalde directory kopieren naar een andere directory.
> Alleen vind ik in Delphi alleen het commando FileCopy(src, dst, bool) terug.
> Kan iemand mij verwijzen naar goede resources, of zelfs een voorbeeld 
> doorsturen om dit op te vangen.
> 
> Alvast bedankt
> David.


Hier een voorbeeld van een form met twee buttons, en een FileListBox
(te vinden om het tabblad Win 3.1).
De eerste button copieert ��n bestand, de tweede de inhoud van een
gehele folder.
Hopelijk zet dit je op de goede weg.
Hindert de FileListBox je, zet zijn visible dan op False.

procedure TForm1.Button1Click(Sender: TObject);
begin  {Copi�ren van 1 file}
  copyfile ( 'c:\a.txt', 'c:\b.txt', false {overwrite als reeds
bestaat} )
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer ;
begin   {Copi�ren van alle bestanden uit een folder}
  Filelistbox1.Directory := 'C:\' ;
  with FileListBox1.Items do
    for i := 0 to count - 1 do
      copyfile ( Pchar(Filelistbox1.Directory + strings[i]),
Pchar('c:\weg\' + strings[i]), false )
end;

Groeten,

Webmaster StartMetDelphi.
www.geocities.com/StartMetDelphi