|
#1
|
|||
|
|||
FTP .htaccess
Здравствуйте, уважаемые форумчане.
Столкнулся с проблемой того, что 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 применить? =\
|