🚀 go-pugleaf

in de helpfile
coyfile of filecopy

en ge maakt een lijst aan met uw bestanden die ge wilt copyen (TStringList)


vb


functin copyfiles(lijst : TStringList) : boolean
var i : Integer;
begin

  For i:=0 to lijst.count - 1 do
  begin
    if CopyFile(lijst[i] .... )
  end;
end;


zoiets in de geburen
handige functies zijn ook extractfilepath
                                             extractfilename
die zult ge zekes nog nodig hebben

maar bij mijn weten is er ni zoiets als copy/*
ge moet dus wel degelijk telkens de filename meegeven

als ge die directory wilt scannen op files zult ge FindFirst, FindNext,
FindLast moeten gebruiken
gewoon effe help lezen




--

   cricque

Quote :  "Multitasking: Screwing up several things at once..."
".-Coder-." <d.cox@planetinternet.be> schreef in bericht
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.
>

Dank u wel voor het antwoord.

Het is idd opgelost

D.

cricque wrote:
> in de helpfile
> coyfile of filecopy
> 
> en ge maakt een lijst aan met uw bestanden die ge wilt copyen (TStringList)
> 
> 
> vb
> 
> 
> functin copyfiles(lijst : TStringList) : boolean
> var i : Integer;
> begin
> 
>   For i:=0 to lijst.count - 1 do
>   begin
>     if CopyFile(lijst[i] .... )
>   end;
> end;
> 
> 
> zoiets in de geburen
> handige functies zijn ook extractfilepath
>                                              extractfilename
> die zult ge zekes nog nodig hebben
> 
> maar bij mijn weten is er ni zoiets als copy/*
> ge moet dus wel degelijk telkens de filename meegeven
> 
> als ge die directory wilt scannen op files zult ge FindFirst, FindNext,
> FindLast moeten gebruiken
> gewoon effe help lezen
> 
> 
> 
> 
> --
> 
>    cricque
> 
> Quote :  "Multitasking: Screwing up several things at once..."
> ".-Coder-." <d.cox@planetinternet.be> schreef in bericht
> 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.
>>
> 
> 
> 

".-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