Вверх ↑
Ответов: 70
Рейтинг: 1
#1: 2017-03-10 14:35:38 ЛС | профиль | цитата
Здравствуйте! Пилю менялку дат создания/изменения/открытия для файлов и папок.
Компонент FileAttributes полностью справляется со сменой дат у файлов. Даже умеет читать даты каталогов, а вот СМЕНИТЬ дату каталогу он не способен.
Помогите Модифицировать код.

Add(FileAttributes,5993030,322,427)
{
FileName="0000"
Format="YMDhms"
Point(AccessDate)
Point(ModifyDate)
link(FileName,13037855:Value,[(328,419)(265,419)])
link(CreateDate,7842882:Value,[])
link(AccessDate,7516964:Value,[(349,366)(370,366)])
link(ModifyDate,10964272:Value,[(356,377)(398,377)])
}
Add(FormatStr,15987095,252,252)
{
DataCount=0
Mask="2002-12-17-17-23-48"
link(onFString,4432740:doConvert,[])
}
Add(DateConvertor,4432740,294,252)
{
Mode=8
Format="yyyy-MM-dd-hh-mm-ss"
link(onResult,10964272:doValue,[])
}
Add(Memory,10964272,392,252)
{
}
Add(MainForm,15551238,105,266)
{
Caption="Пример использования FileAttributes"
link(onCreate,1958925:doEvent1,[])
}
Add(Memory,13037855,259,378)
{
Default=String(.\\0\\)
}
Add(FormatStr,7140595,252,441)
{
DataCount=0
Mask="0"
link(onFString,5993030:doSetDate,[])
}
Add(Hub,1958925,161,280)
{
OutCount=4
link(onEvent1,15987095:doString,[(221,286)(221,258)])
link(onEvent2,1197378:doString,[])
link(onEvent3,3355825:doString,[(213,300)(213,328)])
link(onEvent4,7140595:doString,[(200,307)(200,447)])
}
Add(FormatStr,1197378,252,287)
{
DataCount=0
Mask="2001-10-03-07-22-15"
link(onFString,10979279:doConvert,[])
}
Add(DateConvertor,10979279,294,287)
{
Mode=8
Format="yyyy-MM-dd-hh-mm-ss"
link(onResult,7516964:doValue,[])
}
Add(Memory,7516964,364,287)
{
}
Add(FormatStr,3355825,252,322)
{
DataCount=0
Mask="2011-03-02-22-14-18"
link(onFString,1480937:doConvert,[])
}
Add(DateConvertor,1480937,294,322)
{
Mode=8
Format="yyyy-MM-dd-hh-mm-ss"
link(onResult,7842882:doValue,[])
}
Add(Memory,7842882,336,322)
{
}

карма: 0

0