|
Вопрос # 835/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Не удаляет папку с под папкой и просто файл, что не так?
Приложение: Переключить в обычный режим- procedure TMainForm.DELETEALL1Click(Sender: TObject);
- var
- coun,coun1: Integer;
- FileName:string;
- SL : TStrings;
- begin
- SL := TStringList.Create;
- FileName:= ComboBox2.Text+'/'+ RemoteView.Selected.Caption;
- try
- coun:= FTP.DirectoryListing.Count;
- FTP.ChangeDir(FileName);
- FTP.List(SL);
- for coun:= 0 to FTP.DirectoryListing.Count - 1 do
- begin
- FTP.Delete(FTP.DirectoryListing.Items[coun].FileName+'/');
- Application.ProcessMessages;
- Log (' Delete: '+FTP.DirectoryListing.Items[coun].FileName+'
'+FTP.LastCmdResult.DisplayName,clRed);
- end;
- FTP.changedir('..');
- FTP.List(SL);
- for coun1:=0 to FTP.DirectoryListing.Count - 1 do
- begin
- ftp.RemoveDir(FileName);
- Log (' '+FTP.LastCmdResult.DisplayName);
- RefreshRemoteListView();
- DisplayFTP;
- end;
- SL.Free;
- except
- end;
- end;
 |
Вопрос задал: Vit2 (статус: Посетитель)
Вопрос отправлен: 7 августа 2007, 11:39
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Попробуй между except и end написать:
on E: Exception do
ShowMessage(E.Message);
и посмотреть, что получится.
И как там у тебя на счёт прав на этом FTP-сервере?
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 8 августа 2007, 08:18
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 12 августа 2007, 21:44; участников в обсуждении: 1.
|
|
Vit2 (статус: Посетитель), 10 августа 2007, 21:40 [#1]:
Привет!
На счёт прав нормально.
Если удаляю просто файл то вылетает:
CWD failed. " Имя файла" directory not found.
Удаляю папку с файлами и под папкой:
File not found.
Удаляю папку с файлами:
directory not found но при этом папка с файлами удаляется.
|
|
|
Vit2 (статус: Посетитель), 12 августа 2007, 21:44 [#2]:
Вы куда подевались эксперты?
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
