Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Резервное копирование   Найти похожие ветки 

 
чайник1   (2004-02-17 11:28) [0]

уважаемые мастера, почему у меня при копировании создается куча копий, кроме оригинала, т.е. копируется файл, затем следующий с именем копия... и т.д.ведь я не выставляю флаг FOF_RENAMEONCOLLISION; Код следующий:

procedure Tservis_op.Button1Click(Sender: TObject);
var Dir,put1: string;
SHFileOpStruct : TSHFileOpStruct;
from: array [0..255] of Char;
begin
dir := "d:\kredit";
put:=flogin.serv_1.Text+"\basa\";
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
begin
SetCurrentDirectory(PChar(put));
from:="*.*"+#0+#0;
with SHFileOpStruct do
begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @from;
pTo := PChar( dir );
fFlags := 0;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
SHFileOperation( SHFileOpStruct );
showmessage("копирование завершено");
end;
end;


 
Семен Сорокин ©   (2004-02-17 12:36) [1]

pTo := PChar(dir+#0#0);



Страницы: 1 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
14-43780
Cerber
2004-02-18 16:39
2004.03.14
Работа в инте


14-43786
BALU1111
2004-02-18 17:17
2004.03.14
Борьба со спамом и новый способ выкачивания денег?


1-43505
Rentgen
2004-02-28 18:46
2004.03.14
HTML To MHT


14-43829
RealRascal
2004-02-22 08:51
2004.03.14
Кто читал?


3-43319
SelfDestructor
2004-02-17 13:41
2004.03.14
Что не хватает в NT + SP5 + MDAC 2.8 для работы с ADO?