Найти последний созданный файл

[uhm]

Как быстрее всего найти в папке последний созданный файл? Пока умею через FSO перебрать все файлы и найти файл с максимальной DateCreated. Может, еще проще можно?

[Viper]

отслеживать изменения в каталоге?

[Konst_One]

http://www.sql.ru/forum/actualthread.aspx?tid=256352
это посмотри

[Konst_One]

> Есть необходимость выполнять определенные действия при
> появлении нового файла в определенной директории,
> анализируя его название. При этом хотелось бы не сканировать
> тупо содержимое папки по таймеру, а ловить
> какое-нибудь событие, связанное с появлением нового файла.
> Может кто подскажет?

На форму кинь таймер с именем tmrNotif и интервалом 500
Добавь модуль, а в модуль вставь код:
======================================

Код: Выделить всё

Option Explicit

  Public Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationA" (ByVal
  lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
  Public Declare Function FindNextChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
  Public Declare Function FindCloseChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
  Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long)
  As Long


  Public Const INVALID_HANDLE_VALUE = -1&
  Public Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2
  Public Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
  Public Const WAIT_FAILED = -1&
  Public Const WAIT_OBJECT_0 = 0&
  Public Const WAIT_ABANDONED = &H80&
  Public Const WAIT_TIMEOUT = &H102&
  Public Const API_TRUE = 1&

  Public objChangeHandle As Long

======================================

В событии LOAD формы добавь код:
======================================

Код: Выделить всё

' Create the Change Notyfication Object
  objChangeHandle = FindFirstChangeNotification("[Путь_к_исследуемой_папке]", API_TRUE, FILE_NOTIFY_CHANGE_DIR_NAME
   Or FILE_NOTIFY_CHANGE_FILE_NAME)
  If objChangeHandle <> INVALID_HANDLE_VALUE Then
      tmrNotif.Enabled = True
  End If

======================================

В событии таймера TIMER вставь код:
======================================

Код: Выделить всё

  Dim retVal As Long
  retVal = WaitForSingleObject(objChangeHandle, 1&)
  Select Case retVal
      Case WAIT_TIMEOUT
          ' No changes detected
      Case WAIT_OBJECT_0
          '
          ' твой код при измененни файловой структуры исследуемой папки
          '
          FindNextChangeNotification objChangeHandle
  End Select

======================================

[uhm]

!Viper!, Konst_One - посмотрел, не та задача. Мне нужно не отслеживать изменения, а один раз зайти в папку и найти самый последний в ней файл. Я так подумал - наверное, принципиально проще ничего не сделаешь. Разве что можно как-то сразу получить список файлов, отсортированный по времени создания, и взять оттуда последний файл.