Что за проблема с получением даты изменения файлов?

[Ship_1]

Здравствуйте, уважаемые.
Нужно получить дату изменения двух файлов. С первым, текстовым, расположенном там же, где программка, проблем нет. А вот дату второго, экселевского, никак не удаётся получить. Почему - не понимаю. То ли из-за того, что этот файл в "сетке", то ли из-за того, что он нередактируемый...
Пробовал тремя способами. Этим, этим и этим. -1 возвращают все три... Какой ещё есть способ узнать дату изменения файла, который бы работал и с файлами в локальной сети и с уже "открытыми" файлами, недоступными для редактирования

[Vapaamies]

За все способы не скажу, но способ Serge_Bliznykov должен быть работоспособен.

Проблемы могут быть, если файл:

• Недоступен текущему пользователю по тому же пути или по правам (при этом он может быть открыт в приложении, запущенном от имени администратора или системного пользователя локальной/сетевой службы (NT_AUTHORITY).
• Открыт по пути, в котором нет возможности узнать дату/время файла -- обычно это какая-то экзотика, вроде WebDAV или чего-то похожего (SharePoint, Yandex.Disk...).

[Stilet]

то ли из-за того, что он нередактируемый...

А сам проводник то показывает дату изменения верно?

[Ship_1]

Провёл ещё один эксперимент (почему-то раньше до него не додумался). Скинул тот файл, у которого дату получается проверить, по пути второго файла. Теперь и у него дата не проверяется... Видимо, дело таки в том, что он находится в локальной сети по пути типа "\\bilding.local\files\exchange " (без каких либо букв и прочего перед двумя бэкслешами в начале). Есть ли способ узнать дату изменения файла в этом случае?
Stilet, да, в проводнике дата нормальная

[Stilet]

Ну не знаю... Это надо смотреть. Если проводник все показывает, значит что-то не так делаешь ты. Что именно можно сказать только на месте.
FindFirst еще попробуй но проверяй свойство ftLastAccessTime и ftLastWriteTime

[Ship_1]

Дык эта... Что ж тут можно неправильно сделать, если с другим файлом все три метода работают как надо? А с этим, который в локалке, ни один не работает. И если первый перенести в локалку - то уже и с ним ни один не работает...
По этому примеру попробовал и с FindFirst, чуть переделав, но и с ним результат тот же: у первого определяется, у того, который в локалке - нет...

procedure GetDtFl(const FileName: String; out ModificationTime: TDateTime);
var 
  SearchRec: TSearchRec;
  Success: integer;
  DT: TFileTime;
  ST: TSystemTime;
begin
   Success := SysUtils.FindFirst( FileName, faAnyFile, SearchRec );
   if ( Success = 0 ) and
      ( ( SearchRec.FindData.ftLastAccessTime.dwLowDateTime <> 0 ) or
      ( SearchRec.FindData.ftLastAccessTime.dwHighDateTime <> 0 ) )
   then
   begin
      FileTimeToLocalFileTime( SearchRec.FindData.ftLastAccessTime, DT );
      FileTimeToSystemTime( DT, ST );
      ModificationTime:=EncodeDateTime(st.wYear,st.wMonth,st.wDay,st.wHour,st.wMinute,st.wSecond,st.wMilliseconds);
   end;
   SysUtils.FindClose( SearchRec );
end;

Даже попробовал бэкслеш на слеш поменять в пути "\\bilding.local\files\exchange ", всё равно не помогло

[kropotkina-alice]

Подключите сетевой ресурс в качестве локального диска.
Должно помочь.

[Vapaamies]

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

   begin
      FileTimeToLocalFileTime( SearchRec.FindData.ftLastAccessTime, DT );
   end;

Ты не ту дату берешь. Надо брать ftLastWriteTime.

[Ship_1]

Vapaamies, спасибо за подсказку.

   if ( Success = 0 ) and
      ( ( SearchRec.FindData.ftLastAccessTime.dwLowDateTime <> 0 ) or
      ( SearchRec.FindData.ftLastAccessTime.dwHighDateTime <> 0 ) )

В этих случаях, как понимаю, тоже надо поменять? Но проблему получения даты файла в локалке это, конечно, не решило.

Сообщение от kropotkina-alice

Подключите сетевой ресурс в качестве локального диска.
Должно помочь.

Ну это понятно, только программка подразумевается для работы нескольких человек на нескольких компьютерах, и это одна из причин, по которой такой способ решения вопроса не подходит.

GetFileAttributesEx - как понимаю, это WinAPI? Странно, что даже он не работает... Но проводник же как-то отображает эту дату...

[Аватар]

FileAge в локальной сети нормально возвращает время обновления файла. В твоем адресе bilding.local и files это что?