using VBScript_RegExp_55_TLB; function get_file(folder: string; mask: string):string; var max_date : TdateTime; file_date : TDateTime; myRegExp1 : TRegExp; mc: MatchCollection; file_n: string; i: integer; SR : TSearchRec; begin max_date := StrToDateTime(‘01.01.1970 00:00:00’); myRegExp1 :=TRegExp.Create(self); myRegExp1.IgnoreCase := true; myRegExp1.Global := false; myRegExp1.Pattern… ЧитатьОпределить последний (по дате) измененный файл в папке