Удаление файла .xls

@Cold · Регистрация: 22.05.2014

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста, что не так. Пытаюсь удалить файл Excel, путь прописан в tdit1
Почему не работает этот код:

Delphi
1
DeleteFile(EditFullPath.Text);

@D1973 · 22.02.2017, 11:50

Cold, потому, что...
1. Лично мне отсюда совсем не видно, что там прописано в этом EditFullPath.Text
2. Лично мне отсюда совсем не видно, открыт этот файл в текущий момент или нет

@Cold · 22.02.2017, 13:30 **[ТС]**

D1973, тебе можно скинуть на почту программу, реально не могу разобраться в чем причина?

@Puporev · 22.02.2017, 13:34

Комментарий модератора

Cold, Загрузите архив программы в тему, обсуждение вопросов вне темы запрещено правилами.

@Cold · 22.02.2017, 13:38 **[ТС]**

закрывайте тему.

@droider · 22.02.2017, 14:48

Сообщение от Cold

закрывайте тему

Конкретно сформулируйте задачу. Вам нужно удалить все xls файлы по пути к каталогу, заданному в TEdit??

Добавлено через 17 минут
Версия Delphi какая?

Если Вам нужно удалить несколько книг Excel, то:

1. для Delphi 7:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure DeleteFiles(APath, AFileSpec: String);
var
  lSearchRec:TSearchRec;
  lPath:String;
begin
  lPath := IncludeTrailingPathDelimiter(APath);
 
  if FindFirst(lPath+AFileSpec,faAnyFile,lSearchRec) = 0 then
  begin
    try
      repeat
       DeleteFile(lPath+lSearchRec.Name);    
      until FindNext(lSearchRec) <> 0;
    finally
      FindClose(lSearchRec);
    end;
  end;
end;

Пример использования

Delphi
1
2
3
4
5
//по кнопке
procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteFiles(Edit1.Text, '*.xls');
end;

2. Для более старших XE-версий:

Delphi
1
2
3
4
5
6
7
8
uses
System.IOUtils;
//...
procedure DeleteFilesMatchingPattern(const Directory, Pattern: string);
  var FileName: string;
begin
  for FileName in TDirectory.GetFiles(Directory, Pattern) do TFile.Delete(FileName);
end;

Способ применения аналогичен.

Если один файл, то как указан путь?

Пример

Delphi
1
2
3
4
//полный путь к файлу
EditFullPath.Text :='C:\Users\009322\Desktop\MyDocs\File.xls';
//далее
DeleteFile(EditFullPath.Text);

И как упомянул D1973, не занят ли файл?
Если хотите получить ответ-задавайте правильно вопрос.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@D1973 Модератор 9917 / 6454 / 2455 Регистрация: 21.01.2014 Сообщений: 27,389 Записей в блоге: 3
	22.02.2017, 11:50
	Cold, потому, что... 1. Лично мне отсюда совсем не видно, что там прописано в этом EditFullPath.Text 2. Лично мне отсюда совсем не видно, открыт этот файл в текущий момент или нет 0

@Cold 87 / 87 / 65 Регистрация: 22.05.2014 Сообщений: 485
	22.02.2017, 13:30 [ТС]
	D1973, тебе можно скинуть на почту программу, реально не могу разобраться в чем причина? 0

@Cold 87 / 87 / 65 Регистрация: 22.05.2014 Сообщений: 485
	22.02.2017, 13:38 [ТС]
	закрывайте тему. 0

Удаление файла *.xls*

Удаление файла .xls