[Помогите!] Работа с файлами

[*Женька*]

Э всем привет !
у меня проблема хочу на кнопку поставить код чтоб искала файл и удаляла его чтоб можно было писать название в коде вот смотрите
мой код находит но не удаляет =)

procedure TForm1.Button2Click(Sender: TObject);
var
fileName: string;
fullFilePath : string;
dir1, dir2 : string;

begin
// Файл который мы будет искать
fileName := 'finger.exe';
// Определение двух каталогов, где мы хотим искать файл
dir1 := 'C:\';
dir2 := 'C:\Program Files';

// Поиск файла
fullFilePath := FileSearch(fileName, dir1+';'+dir2);

// Если мы поищем сейчас, мы найдем его в текущем каталоге
if fullFilePath = ''
then ShowMessage(fileName+' не найден')
else ShowMessage(fullFilePath+' найден');

// Теперь удаляем Test.txt из текущего каталога и повторяем поиск
DeleteFile(fileName);

// Если мы поищем теперь, мы найдем его в одной из директорий поиска
fullFilePath := FileSearch(fileName, dir1+';'+dir2);
if fullFilePath = ''
then ShowMessage(fileName+' не найден')
else ShowMessage(fullFilePath+' найден');
end;
end.

[VeTaL_UA]

Цитата: Сообщение от *Женька* fileName := 'finger.exe';

Цитата: Сообщение от *Женька* // Теперь удаляем Test.txt из текущего каталога и повторяем поиск

Цитата: Сообщение от *Женька* DeleteFile(fileName);

И почему же оно по твоему должно удалять Test.txt???

Немного подправил твой код, хотя не понимаю зачем он... В Edit1 - имя файла, который удаляем, в Edit2 и Edit3 - предполагаемые пути к файлам...

procedure TForm1.Button2Click(Sender: TObject);
var
fileName:string;
fullFilePath:string;
dir1,dir2:string;
begin
fileName:=Edit1.Text;
dir1:=Edit2,Text;
dir2:=Edit3.Text;
 try
 fullFilePath:=FileSearch(fileName,dir1+';'+dir2);
  if fullFilePath='' then 
   begin
   ShowMessage(fileName+' не найден');
   end
  else
   begin
   ShowMessage(fullFilePath+' найден');
   end;
 DeleteFile(fileName);
 fullFilePath:=FileSearch(fileName,dir1+';'+dir2);
  if fullFilePath='' then
   begin
   ShowMessage(fileName+' не найден');
   end
  else
   begin
   ShowMessage(fullFilePath+' найден');
   end;
 finally
 fileName:='';
 fullFilePath:='';
 dir1:='';
 dir2:='';
 end;
end;

[*Женька*]

Цитата: Сообщение от VeTaL_UA И почему же оно по твоему должно удалять Test.txt??? Немного подправил твой код, хотя не понимаю зачем он... В Edit1 - имя файла, который удаляем, в Edit2 и Edit3 - предполагаемые пути к файлам... procedure TForm1.Button2Click(Sender: TObject); var fileName:string; fullFilePath:string; dir1,dir2:string; begin fileName:=Edit1.Text; dir1:=Edit2,Text; dir2:=Edit3.Text; try fullFilePath:=FileSearch(fileName,dir1+';'+dir2); if fullFilePath='' then begin ShowMessage(fileName+' не найден'); end else begin ShowMessage(fullFilePath+' найден'); end; DeleteFile(fileName); fullFilePath:=FileSearch(fileName,dir1+';'+dir2); if fullFilePath='' then begin ShowMessage(fileName+' не найден'); end else begin ShowMessage(fullFilePath+' найден'); end; finally fileName:=''; fullFilePath:=''; dir1:=''; dir2:=''; end; end;

а можно чтоб поиск был задан не через Edit а он был указан в самом коде?

[4ipolino]

Цитата: Сообщение от *Женька* а можно чтоб поиск был задан не через Edit а он был указан в самом коде?

самый простой вариант для тебя впиши в едит нужное название файла и установи свойство visible = false
ну или в коде замени едит на название файла

[VeTaL_UA]

Цитата: Сообщение от *Женька* а можно чтоб поиск был задан не через Edit а он был указан в самом коде?

Что это значит? Если не нужен ввод в Edit, тогда:

procedure TForm1.Button2Click(Sender: TObject);
var
fileName:string;
fullFilePath:string;
dir1,dir2:string;
begin
fileName:='finger.exe';
dir1:='C:\';
dir2:='C:\Program Files';
 try
 fullFilePath:=FileSearch(fileName,dir1+';'+dir2);
  if fullFilePath='' then 
   begin
   ShowMessage(fileName+' не найден');
   end
  else
   begin
   ShowMessage(fullFilePath+' найден');
   end;
 DeleteFile(fileName);
 fullFilePath:=FileSearch(fileName,dir1+';'+dir2);
  if fullFilePath='' then
   begin
   ShowMessage(fileName+' не найден');
   end
  else
   begin
   ShowMessage(fullFilePath+' найден');
   end;
 finally
 fileName:='';
 fullFilePath:='';
 dir1:='';
 dir2:='';
 end;
end;

[*Женька*]

да,да я так и сделал файл находит а вот удалят не хочет...

[VeTaL_UA]

Цитата: Сообщение от *Женька* да,да я так и сделал файл находит а вот удалят не хочет...

Я тебе даже объясню почему:

Цитата: Сообщение от VeTaL_UA fileName:='finger.exe';

Цитата: Сообщение от VeTaL_UA dir1:='C:\';

Цитата: Сообщение от VeTaL_UA dir2:='C:\Program Files';

Цитата: Сообщение от VeTaL_UA DeleteFile(fileName);

В твоем коде, программа пытается удалить finger.exe из ПАПКИ, ГДЕ ЛЕЖИТ САМА ПРОГРАММА, а надо бы из этих, C:\ и C:\Program Files, папок, проверяя их наличие там. И вообще, твой код кривой какой-то... Вот:

procedure TForm1.Button2Click(Sender: TObject);
var
fileName:string;
fullFilePath:string;
dir1,dir2:string;
begin
fileName:='finger.exe';
dir1:='C:\';
dir2:='C:\Program Files';
 if FileExists(dir1+fileName) then
  begin
  DeleteFile(dir1+fileName);
  ShowMessage('Файл '+dir1+fileName+' удалён');
  end;
 if FileExists(dir2+fileName) then
  begin
  DeleteFile(dir2+fileName);
  ShowMessage('Файл '+dir2+fileName+' удалён');
  end;
fileName:='';
dir1:='';
dir2:='';
end;

Этот делает то же самое, что и твой, только компактнее он, да и правильнее...