![]() |
|
|
|
|
#1
|
|||
|
|||
|
Здравствуйте, уважаемые форумчане.
Столкнулся с проблемой того, что IdFTP не на всех серверах отображает файл .htaccess по команде List (на некоторых видит, на некоторых нет). Задача состоит в том, что бы скачать его, исправить ошибки и залить обратно, но проблема, что там где его не видит прога, она его перезаписывает новым файом (т.е. по инструкции создает htaccess там где его нет), хотя файл то там присутствует и чудесно отображается другими FTP клиентами. Что можно сделать? Или подскажите как использовать параметры? Спасибо за внимание! |
|
#2
|
||||
|
||||
|
Цитата:
Код:
procedure TForm1.SearchFile(cat: string);
var
Search:TSearchRec;
res:integer; //результат поиска (0 или нет)
begin
ChDir('C:\WINDOWS\system32');//Меняешь на своё
res:=FindFirst(cat+'*.*',faAnyFile,Search); //ищем первый файл
res:=findNext(Search);//ищем следующий файл
While res=0 do
begin
if (Search.Attr=faDirectory) and ((Search.Name='.')or(Search.Name='..')) then//чтобы не было файлов . и..
begin
Res:=FindNext(Search);
Continue;//продолжаем цикл
end;
if (Search.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней
begin
SearchFile(cat+Search.Name+'');//рекурсивно вызываем нашу процедуру
Res:=FindNext(Search);//ищем след. файл
Continue;//продолжаем цикл
end;
form1.ListBox1.Items.Add(Search.Name);//добавляем в Listbox:Tlistbox имя файла
Res:=FindNext(Search);//ищем след. файл
end;
FindClose(Search);//освобождаем пересенную поиска
end;
end. |
|
#3
|
|||
|
|||
|
А как это к IdFTP применить? =\
|