Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Реархивация 
Author Message
Flasher



PostPosted: Wed Jan 25, 2017 20:26    Post subject: Reply with quote

Я об этом выше писал. Вот так криво функция возвращает дату. Ещё это посмотри (у меня разницу вообще в часах выдаёт Very Happy ):
Code:
Arch = "C:\Тест.7z"
With CreateObject("Shell.Application").NameSpace(Arch).Self
   MsgBox .ExtendedProperty("Write") & vbCr & .ModifyDate
End With
   

Для окошка скрипт поправил.

Добавлено спустя 1 час 29 минут:

Dimsok
Проверь сейчас с датой.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.


Last edited by Flasher on Wed Jan 25, 2017 21:03; edited 1 time in total
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group