Проверка на существование неизвестного файла, зная лишь его расширение

@magistrmediv · Регистрация: 06.04.2011

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

Задача проста нужно отследить появление файла в папке (путь к ней известен) но вот загвоздка во первых папка пуста во вторых неизвестно что за файл это будет. Все что известно о нем это расширение.
Вопрос как получить имя файла (причем их может быть несколько)?

@FIL · 26.08.2014, 15:20

Отслеживаение изменений в папках. Вывод последнего добавленого файла

@droider · 26.08.2014, 15:25

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

что известно о нем это расширение

Присутствие файлов с нужным расширением можно определить так

Delphi

var
sr: tsearchrec;
....
 //если текстовые файлы найдены в папке "docs" каталога программы
if FindFirst(ExtractFilePath(ParamStr(0))+'docs\*.txt', faAnyFile, sr)=0  
then 
...
//далее

@Mawrat · 26.08.2014, 17:49

Если без использования ReadDirectoryChangesW(), то можно решить с помощью таймера (TTimer), FindFirst()/FindNext()/FindClose() и функции FileAge(). Пример с FileAge(): Мониторинг изменений текстового файла

@magistrmediv 0 / 0 / 0 Регистрация: 06.04.2011 Сообщений: 83
		1
	Проверка на существование неизвестного файла, зная лишь его расширение 26.08.2014, 14:30. Показов 1399. Ответов 3 Метки нет (Все метки) Задача проста нужно отследить появление файла в папке (путь к ней известен) но вот загвоздка во первых папка пуста во вторых неизвестно что за файл это будет. Все что известно о нем это расширение. Вопрос как получить имя файла (причем их может быть несколько)? 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	26.08.2014, 15:20	2
	Отслеживаение изменений в папках. Вывод последнего добавленого файла 0

@Mawrat 13107 / 5888 / 1707 Регистрация: 19.09.2009 Сообщений: 8,808
	26.08.2014, 17:49	4
	Если без использования ReadDirectoryChangesW(), то можно решить с помощью таймера (TTimer), FindFirst()/FindNext()/FindClose() и функции FileAge(). Пример с FileAge(): Мониторинг изменений текстового файла 0