ftp'de silme

[true_false]

Kod: Tümünü seç

var
silinecek:string;
begin
  if not ftpm.Connected then exit;
  silinecek := ftpm.DirectoryListing[DirectoryListBox.itemindex].FileName;
  if ftpm.DirectoryListing[DirectoryListBox.ItemIndex].ItemType = ditdirectory then
     begin
     PopupMenu1.Items[3].Enabled:= false;
     end  else
     ftpm.Delete(silinecek);

end;

kodu yazdığım zaman bana

project...... class EID protocol reply eror with message'deneme.txt' deleted (20897573 bytes now available)

kod'da yanlışlık yok ama protocolerle alakalı heralde diye düşünüyorum
siz nedersiniz?
not göndermiş olduğunuz güzel cevaplar teşekkür ederim

[fduman]

Peki silmiyor mu dosyayı?

Bana siliyor ve sana bunu bildiriyor gibi geldi. basitçe try except arasına alıp görünmesini engelleyebilirsin.

[true_false]

Kod: Tümünü seç

var
silinecek:string;
begin

  try
    if not ftpm.Connected then exit;
    silinecek := ftpm.DirectoryListing[DirectoryListBox.itemindex].FileName;
    if ftpm.DirectoryListing[DirectoryListBox.ItemIndex].ItemType = ditdirectory then
       begin
       PopupMenu1.Items[3].Enabled:= false;
       end  else
       ftpm.Delete(silinecek);
         DirectoryListBox.Clear;
      Self.ChageDir('/');
  except
      raise Exception.Create('silindi...');
       end;
end;

hocam böle yaptım sildi refresh sorunum var
(bu mesajı yazdığımda kim olduğunu bilmediğim biri (heralde kullanıcı adımı beğendi) üyelik bilgilerimi değiştirerek accountumu aldı mustafa abiyle süren mailleşmeler sonucu bugün üyeliğime tekrar kavuştum teşekkürler.)

[rsimsek]

hocam böle yaptım sildi refresh sorunum var

Olabilir.. İşlemi bir kaç kez üstüste yapmışsan refresh etmeyip silinen dosyayı tekrar silmeye kalktığından böyle bir mesaj alman muhtemeldir..