GETFILETIME

Библиотека

V32.EXE

Синтаксис

GETFILETIME(file: IDENT): TIMESTAMP;

Описание

Возвращает местное время последней модификации регулярного или нерегулярного файла проекта . Предназначена в основном для проверки актуальности данных нерегулярного файла.

Особенности работы процедуры с нерегулярными файлами:

Таким образом, время последней модификации нерегулярного файла изменяется только в момент выполнения DETACH_TABLE и не меняется при выполнении собственно процедур модификации, таких как INSERT, REPLACE, REMOVE.

При работе с регулярными файлами процедура GETTIMESTAMP должна учитывать выполнение каждой операции INSERT, REPLACE, REMOVE, но пока возвращает весьма приблизительные величины, поскольку не учитывает некоторое количество последних модификаций файла как со своей станции, так и с других станций сети.

Пример

CONST
 File1Name = "test.dad";
VAR
 File1Time: TIMESTAMP;
 Reaction: NUMERIC[0];
 NeedCreateFile1: SCAL[2];
BEGIN
 (* Код описания подключаемого файла File1 *)
 
 NeedCreateFile1 := 1;
 IF ATTACH_TABLE(File1, Input, File1Name) = 0 THEN
  File1Time := GETFILETIME(File1);
  Reaction := STDFORM("|Нерегулярный файл %NI был создан %<D.N.y H:M:S>NI.||"+
                      "Нужно ли собрать его заново?||%< Нет >B       %< Да >B",
                      "",
                      ,
                      ,
                      File1Name, File1Time);
  NeedCreateFile1 := (R = 2);
  IF NeedCreateFile1 THEN
   DETACH_TABLE(Att1);
  END;
 END;
 IF NeedCreateFile1 THEN
  AttachFile(File1, Create, File1Name);
  
  (* Код создания файла *)
  
  DETACH_TABLE(File1, Save);
  ATTACH_TABLE(File1, Input, File1Name);
 END;
 
 (* Использование файла File1 *)
 
 DetachFile(File1);
END.

См. также