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 

Как оставить оригинальную дату после изменения файла?
Goto page 1, 2  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы printer-friendly view
View previous topic :: View next topic  
Author Message
Wenzz



Joined: 21 Jan 2006
Posts: 28
Location: Belarus, Gomel

Post (Separately) Posted: Sat Jan 21, 2006 20:53    Post subject: Как оставить оригинальную дату после изменения файла? Reply with quote

Что нужно сделать (мож в настройках .ini файла?), чтобы дата оставалась такой, какой она была изначально при создании файла? Т.к. мне иногда часто приходится изменять файлы, а я хочу принципиально старую дату файла (иногда бывает и такое), так чтобы не лазить всё время с системные часы!!! - напрягает Mad
А лучше былобы забиндить на какое-нить сочетание клавиш - 1 раз нажимаеш - вкл такая функция, а 2 - выкл!!! Rolling Eyes
Если кто знает подскажите, плис!
Back to top
View user's profile Send private message
Вахмурка



Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва

Post (Separately) Posted: Sun Jan 22, 2006 00:18    Post subject: Reply with quote

1) сохраняешь исходник;
2) изменяешь файл;
3) копируешь с исходника на него дату вот так:

http://powerpro.wincmd.ru/Scripts/CopyDate.htm

4) стираешь исходник.

А на скрипт повесить хоткей - как два байта об асфальт.
Back to top
View user's profile Send private message
Моторокер



Joined: 06 May 2005
Posts: 1517
Location: г. Пермь (читается Перьмь)

Post (Separately) Posted: Mon Jan 23, 2006 10:28    Post subject: Reply with quote

1) Открыть файл
2) Запустить диалог Файл | Изменить атрибуты
3) Сохранить файл
4) Сохранить атрибуты

Если использовать редко, то нормально. Если часто, то можно замучаться.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия

Post (Separately) Posted: Mon Jan 23, 2006 12:03    Post subject: Reply with quote

Есть интересная утилитка shdate. Скачать можно, например, отсюда - http://vanopage.chat.ru/soft.html. В свойства файлов (по Alt+Enter) добавляется закладочка "Date / Time", на которой, в частности, можно установить дату "Modified" как "Created".
Back to top
View user's profile Send private message
Wenzz



Joined: 21 Jan 2006
Posts: 28
Location: Belarus, Gomel

Post (Separately) Posted: Mon Jan 23, 2006 14:31    Post subject: Reply with quote

Я нифига не понял куда нужно запихивать ети скрипты и польза их для меня пока сомнительна. И пока что для меня представляет реальную пользу пограмка shdate! Thanks Batya!
Но мне всё ж хотелось бы, я так понял, что в main.ini такого нет, а мож есть?, когда идёт пакетная обработка, по одному файлу тЯжАло изменять дату, а копировать кучу .mp3 файлов, используя скрипты - место не позволяет
Back to top
View user's profile Send private message
Wenzz



Joined: 21 Jan 2006
Posts: 28
Location: Belarus, Gomel

Post (Separately) Posted: Mon Jan 23, 2006 14:42    Post subject: Reply with quote

А в свободное время покопаюсь в скриптах. Межет реальная штука... Cool
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия

Post (Separately) Posted: Mon Jan 23, 2006 17:06    Post subject: Reply with quote

Wenzz
Если уж тебе нравится копаться в скриптах, вот тебе скрипт:
Code:
'=====================================================================
' Установка у отмеченных файлов и файлов в отмеченных папках
'   даты изменения = даты создания этих файлов

' В параметрах вызова из TC должно быть прописано:
' %L
'=====================================================================

Dim FSO, TCS, StreamFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
Set StreamFile = FSO.OpenTextFile(WScript.Arguments(0), 1)

Dim Selected, CurrFile
Do While Not StreamFile.AtEndOfStream
  Selected = StreamFile.ReadLine
  If FSO.FileExists(Selected) Then
    Set CurrFile = FSO.GetFile(Selected)
    TCS.SetFileDateAtr CurrFile,,CurrFile.DateCreated
  End If
  If FSO.FolderExists(Selected) Then
    FolderProcess(FSO.GetFolder(Selected))
  End If
Loop
MsgBox("Выполнено!")
Set FSO = Nothing
Set TCS = Nothing
Set StreamFile = Nothing
Set CurrFile = Nothing
Wscript.Quit()

Function FolderProcess(CurrFolder)
  Dim sf, f
  For Each sf in CurrFolder.SubFolders
    FolderProcess(sf)
  Next
  For Each f in CurrFolder.Files
    TCS.SetFileDateAtr f,,f.DateCreated
  Next
End Function

Сохрани в файл *.vbs и повесь этот файл на кнопку (или команду меню "Запуск" и горячую клавишу). В параметрах вызова скрипта должно быть %L.
ЗЫ. В скрипте используется Script Helper, установи его.


Last edited by Batya on Mon Jan 23, 2006 17:11; edited 1 time in total
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия

Post (Separately) Posted: Mon Jan 23, 2006 17:09    Post subject: Reply with quote

В догонку...
Пока писал скрипт, оказалось, что shdate весьма глючная штука - у меня на Win2k TotalCmd вылетал по Access Violation после нескольких вызовов свойств файлов по Alt+Enter.
Back to top
View user's profile Send private message
Wenzz



Joined: 21 Jan 2006
Posts: 28
Location: Belarus, Gomel

Post (Separately) Posted: Mon Jan 23, 2006 23:46    Post subject: Reply with quote

Прикинь, Batya, та же бодяга с Access Violation, пока читал, но у меня winXP (видимо это из-за того, что програмулина старая. Интересно а поновее версия есть?). Не совсем понял, что за файл *.vbs и что такое %L. Попробую пока разобраться.
Да, слушай, Batya может ты между делом и знаешь где достать супа-кряцкер, тобы вверху твоё имя писалось? У меня TC 6.53 XP 3.3.1. Был бы весьма признателен! А-то весь нет перерыл - кроме ихних имён нифигааааа. Толи дело был TC 6.03 XP...
Back to top
View user's profile Send private message
Wenzz



Joined: 21 Jan 2006
Posts: 28
Location: Belarus, Gomel

Post (Separately) Posted: Tue Jan 24, 2006 00:13    Post subject: Reply with quote

С *.vbs я уже разобрался (так всегда: только написал, посмотрел куда надо, разобрался)...
Back to top
View user's profile Send private message
alex1973



Joined: 24 Jan 2006
Posts: 2

Post (Separately) Posted: Tue Jan 24, 2006 11:01    Post subject: Reply with quote

Total cmd не запускается
После переустановки работает какое-то время, а потом не запускантся, просто ярлык перещелкнется и все.Что делать подскажите.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия

Post (Separately) Posted: Tue Jan 24, 2006 11:03    Post subject: Reply with quote

Wenzz
На этом форуме кряки к TC не обсуждаются!

Хотя ты и разобрался, на всякий случай (может еще кто не знает)...
vbs - это файл, написанный с использованием технологии Windows Host Script на языке Visual Basic Script. Такие файлы можно запускать, как обычные exe-файлы.
%L - это надо написать в поле "Параметры" в свойствах кнопки в TC. TC вместо %L подставит имя временного файла, содержащего список выделенных файлов и папок.
Back to top
View user's profile Send private message
Вахмурка



Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва

Post (Separately) Posted: Tue Jan 24, 2006 22:13    Post subject: Reply with quote

Quote:
когда идёт пакетная обработка, по одному файлу тЯжАло изменять дату, а копировать кучу .mp3 файлов, используя скрипты - место не позволяет


А для этого существует другой скрипт:

http://powerpro.wincmd.ru/Scripts/BatchCopyDate.htm

И никаких тебе Access Violation Smile
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия

Post (Separately) Posted: Wed Jan 25, 2006 11:49    Post subject: Reply with quote

Вахмурка
На мой взгляд, проще новичку дать скрипт WHS, который можно СРАЗУ использовать, чем заставлять разбираться с PowerPro.
И ты отошел от первоначального ТЗ:
Quote:
чтобы дата оставалась такой, какой она была изначально при создании файла

Т.е., как я понимаю, надо сделать дату изменения равной дате создания файла.
К тому же, при использовании указанного тобой скрипта необходимо иметь копии одноименных файлов, что противоречит:
Quote:
а копировать кучу .mp3 файлов, используя скрипты - место не позволяет

И может ли твой скрипт обрабатывать вложенные папки?

Quote:
И никаких тебе Access Violation

Если посомтреть внимательно, то видно, что я писал, что Access Violation возникает, если использовать утилитку shdate. Это один из предложенных мной вариантов и к приведенному мной скрипту он отношения не имеет.
Back to top
View user's profile Send private message
Вахмурка



Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва

Post (Separately) Posted: Wed Jan 25, 2006 17:36    Post subject: Reply with quote

2Batya
Batya wrote:

На мой взгляд, проще новичку дать скрипт WHS, который можно СРАЗУ использовать, чем заставлять разбираться с PowerPro.

Да, за исключением случая, если PowerPro уже установлен и запущен и клиент достаточно подготовлен, чтобы в нем "разобраться". В ТЗ об этом ничего не сказано Smile
Quote:
Т.е., как я понимаю, надо сделать дату изменения равной дате создания файла.

Здесь вина вопрошающего - нечетко поставлена задача.
Quote:
К тому же, при использовании указанного тобой скрипта необходимо иметь копии одноименных файлов, что противоречит ...
И может ли твой скрипт обрабатывать вложенные папки?

Если их (папок) не сотня, то минус на минус дает плюс - обработали одну - очистили место - обработали другую - и т. д.
Quote:
Если посомтреть внимательно, то видно, что я писал, что Access Violation возникает, если использовать утилитку shdate. Это один из предложенных мной вариантов и к приведенному мной скрипту он отношения не имеет.

А я и не имею ничего против скриптов, тем более твоих.

Вывод - я предложил вариант, который я бы стал использовать, встань передо мной такая задача. А чьему совету следовать - это выбор клиента.
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы All times are GMT + 4 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group