سلام عزيزان
مي خواستم بدونم چه جور ميشه با دلفي دستور كپي يه پوشه رو داد.
ممنون.
سلام عزيزان
مي خواستم بدونم چه جور ميشه با دلفي دستور كپي يه پوشه رو داد.
ممنون.
با سلام
واسه كپي قايل اينو دارم :
;(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
يك راه ساده اينه
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;
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)