| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Резервное копирование [D7, dBase, FoxPro]

чайник1 ©   (2004-02-17 11:28:00) 

уважаемые мастера, почему у меня при копировании создается куча копий, кроме оригинала, т.е. копируется файл, затем следующий с именем копия... и т.д.ведь я не выставляю флаг 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:00) [1]

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

---

Наверх