[Staziah2]

Добрый день! Подскажите,как сделать,чтобы при проверке (копировании) файла заблокировать? То есть выбрали файл,скопировали,но как проверить,что скопировался,и если он не скопировался,надо сделать блокировку,но при этом не попало в дбгрид данных,а если скопировался файл,то спокойно в дбгрид данные добавили.

Код:

Код:

procedure TForm2.Button1Click(Sender: TObject);
var Path1, Path2 , Path3: String;
begin
Path1 := Form2.wwDBComboDlg1.Text; //открыли опендиалог,выбрали файл,и на комбо строка.
Path2 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif'; 
Path3 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text;
if FileExists(Path3)=false then
begin
  if ForceDirectories(Path3) then
  CopyFile(Path1,Path2);
end;

MAD: Use tags!
делфи7. Спасибо за помощь.

[@Rafa3L]

Код:

...
 if not FileExists(Path3) then
  begin
   if ForceDirectories(Path3) then CopyFile(Path1,Path2);
   if FileExists(Path2) then // спокойно в дбгрид данные добавили
  end;
...

4250