چه جور ميشه با دلفي دستور كپي يه پوشه رو داد

[highermelody]

سلام عزيزان
مي خواستم بدونم چه جور ميشه با دلفي دستور كپي يه پوشه رو داد.

ممنون.

[Mavix]

با سلام

واسه كپي قايل اينو دارم :


;(procedure CpyFile(pSor, pDes: string
var
; vSor, vDes: TFileStream
begin
;(vSor := TFileStream.Create(pSor, fmOpenRead
try
;(vDes := TFileStream.Create(pDes, fmOpenWrite or fmCreate
try
;(vDes.CopyFrom(vSor, vSor.Size
finally
;vDes.Free
;end
finally
;vSor.Free
;end
;end

[FGIT]

يك راه ساده اينه

FileListBox1.Directory:='C:\';
for i:=1 to FileListbox1.Items.Count do
Begin
FileListBox1.ItemIndex:=i-1;
if FileListBox1.Items[i-1]<>ldbName then
if Not CopyFile(PChar(FileListBox1.FileName),PChar(S2+Fil eListBox1.Items[i-1]),False) then
Rv:=False;
Application.ProcessMessages;
End;