Problém s FTP

[hosť]

Prosim vas o radu. Potrebujem zmazat z viacerych adresarov subor s rovnakym nazvom, ale problem je v tom, ze ten subor tam nemusi byt. A tu je ten problem. Ked tam nie je, tak mi havaruje program. Viete mi osetrit tuto chybu?

Zdrojovy kod:

for i := 0 to Form1.LBadr.Count-1 do
begin
Form1.IdFTP.ChangeDir(Form1.LBadr.Items[i]);
Form1.IdFTP.Delete('subor.txt');
Form1.IdFTP.ChangeDirUp;
end;


Dakujem za pomoc.

[kasman.sk]

Ja by som si vytvoril na to novu funkciu:

Kód: Vybrať všetko

function VymazFTPSubor(Subor: String): Boolean;
begin
  try
     Form1.IdFTP.Delete(Subor);
     VymazFTPSubor:=true;
  except
     VymazFTPSubor:=false;
  end;
end;


[hosť]

A to nezmaze cely adresar? Ci iba jeho obsah?

[hosť]

A to nezmaze cely adresar? Ci iba jeho obsah?

Len subor - som to predtym zle nazval: nemalo tam byt VymazFTPAdresar ale VymazFTPSubor -> uz som to v povodnom prispevku opravil

[hosť]

A to nezmaze cely adresar? Ci iba jeho obsah?

Len subor - som to predtym zle nazval: nemalo tam byt VymazFTPAdresar ale VymazFTPSubor -> uz som to v povodnom prispevku opravil

Dakujem za pomoc

[hosť]

A nedali by sa nejako zistit vsetky subory ktore su v tom adresari?

[hosť]

Zistenie celeho adresara:

Treba si vytvorit TListBox a nazvat ho ako DirectoryListBox - do neho sa nacita zoznam suborov a adresary.

Kód: Vybrať všetko

procedure NacitajAdrZoznam(DirName: String);
var LS: TStringList; A: Integer; ABC: String;
begin
LS := TStringList.Create;
try
  IdFTP1.ChangeDir(DirName);
  IdFTP1.TransferType := ftASCII;
  DirectoryListBox.Items.Clear;
  IdFTP1.List(LS);
  DirectoryListBox.Items.Assign(LS);
  if (DirectoryListBox.Items.Count>0)
     and (AnsiPos('total', DirectoryListBox.Items[0])>0)
     then DirectoryListBox.Items.Delete(0);
  ListBox1.Clear;
  FOR A:=1 TO DirectoryListBox.Items.Count do
   begin
   ListBox1.Items.Add(IdFTP1.DirectoryListing.Items[A-1].FileName);
   end;
finally
  LS.Free;
end;
end;