SHFileOpStruct
Подскажите пожалуйста, кому не в лом...
Я из ListBox копирую файлы в папку на 'С\Base\' + ID, который я беру из базы...Происходит следующее: когда в ListBox указано несколько файлов, копирование происходит успешно и в нужную папку, а когда только один файл-происходит что-то непонятное, что я делаю не так?
Код: from1,2 - типа string
fmAttachement.ListBox1.Count>0 then
begin
From1:=fmAttachement.ListBox1.Items.Strings[0];
for i := 1 to fmAttachement.ListBox1.Count-1 do
From1:=From1 + #0 + fmAttachement.ListBox1.Items.Strings[i];
From1:=From1 + #0 + #0;
From2:='C:\Base\' + dmMy.TBLRequestsID.AsString;
with SHFileOpStruct do
begin
Wnd := Handle;
wFunc := FO_Copy;
pFrom := PChar(From1);
pTo := PChar(From2);
fFlags := FOF_NOCONFIRMMKDIR;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
SHFileOperation( SHFileOpStruct );
end;
|