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: Fri Feb 15, 2013 13:34    Post subject: Reply with quote

Bomm
В этом скрипте поменять параметр %N на %V, под
Code:
Set FSO = CreateObject("Scripting.FileSystemObject")
вставить
Code:
DateF = DateValue(FSO.GetFile(N).DateLastModified)

вместо
Code:
    If Len(FSO.GetFileName(F)) = Len(FSO.GetFileName(N)) Then
это:
Code:
    If FSO.FileExists(F) Then Set Fl = FSO.GetFile(F) Else Set Fl = FSO.GetFolder(F)
    If DateF = DateValue(Fl.DateLastModified) Then

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group