Klasördeki dosyanın olup olmadığına göre işlem yapmak

[a_self_lion]

Kod: Tümünü seç

var
  kaynak:string;
  Hedef:string;
begin

if Edit3.Text <>'' then
begin // Edit2 boş değilse cari adı  1 başla
  kaynak := 'c:\POSAKTARYEDEK\posaktar_'+Edit3.Text+'.txt';
  hedef := 'c:\posaktar.txt';
//        ' + edit2.text + '
  copyfile(Pchar(kaynak),Pchar(hedef),false);
end //Edit3.Text <>'' boş değilse ath çek no    1 son+
else
begin
  ShowMessage('No Boş Geçilmez');
  Edit3.SetFocus;
  exit;
end;


end;

Yukarda ki gibi bir kopyalama fonksiyonum var burda yapmak istediğim
kullanıcaya kopyalacağı dosyanın adını son kez göstermek ve evet derse
kodlarımı çalıştırmak hayır derse iptal etmek istiyorum.

Eğer girilen bilgiler doğrultusunda böyle bir dosya yoksa klasörde
bunu nasıl sorgular ve kullanıcay bildirebilirim.

[sabanakman]

Kod: Tümünü seç

hedef_yol:=ExtractFilePath(hedef);
if not DirectoryExists(hedef_yol) then begin
  if MessageBox(Handle,PChar(Format('%s klasörü bulunamadı, oluşturulsun mu?',[hedef_yol])),'Uyarı',MB_YESNOCANCEL)=IDYES then begin
    if not ForceDirectory(hedef_yol) then begin
      MessageBox(Handle,'Klasör oluşturulamadı','Hata',MB_ICONERROR);
      Exit;
    end;
  end else Exit;
end;

[a_self_lion]

Teşekkür ederim Sayın sabanakman;