Batya
|
 Posted: Mon Jan 23, 2006 17:06 Post subject: |
 |
|
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 |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
