XCV81
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору begin dir1:=Edt1.Text; dir2:=Edt2.Text; CopyAll; DeleteFile(Edt2.Text+'\1.txt'); DeleteFile(Edt2.Text+'\10.txt'); end; procedure TForm1.CopyAll; var OpStruc: TSHFileOpStruct; frombuf, tobuf: Array [0..128] of Char; Begin FillChar( frombuf, Sizeof(frombuf), 0 ); FillChar( tobuf, Sizeof(tobuf), 0 ); StrPCopy( frombuf, dir1+'\*.txt' ); StrPCopy( tobuf, dir2+'\' ); With OpStruc DO Begin Wnd:= Handle; wFunc:= FO_COPY; pFrom:= @frombuf; pTo:=@tobuf; fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; fAnyOperationsAborted:= False; hNameMappings:= Nil; lpszProgressTitle:= Nil; end; ShFileOperation( OpStruc ); end; | Всего записей: 432 | Зарегистр. 03-10-2007 | Отправлено: 17:15 17-07-2012 | Исправлено: XCV81, 17:18 17-07-2012 |
|