Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Как вариант - с помощью скрипта ставь дату, намного опережающую текущую (скажем, 2260 годМожно конечно воспользоваться скриптом, который меняет дату папки на текущую и поставить фильтр, но такой фильтр у меня уже есть
) и выделяй файлы с такой датой нужным цветом...Зарезервировать для себя, скажем, что файлы/папки с атрибутом "только для чтения" будут для тебя этими самыми, помеченными, ну и задать для них шаблон поиска, плюс цвет навесить, чтобы сразу отличать. Разумеется, не обязательно привязываться к "только для чтения", можно некую комбинацию задать. Например, "только для чтения" + "системный" + неустановленный "архивный". Я нечто подобное уже применял для себя, но потом перешёл на систему с комментариями как более мощную. Менее удобно, конечно - в основном тем, что нельзя задавать комментарии сразу нескольким файлам, но в семёрке этот недостаток будет убран.A.N.T. писал(а):2.Что значит атрибутами?
Это будет затруднительно.Nik писал(а):скажем, 2260 год
(попробуй сам) Больше конечно подходит вариант Nik'a, вот только менять дату на опережающую текущую ничем не грозит 
Код: Выделить всё
Dim FSO, FilesList, oTextFile, AllText
FilesList = "D:\TotalCmd\PlugIns\Wdx\ScriptContent\FilesList.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
content = 0
Set oTextFile = FSO.OpenTextFile(FilesList, 1)
AllText = oTextFile.ReadAll
If InStr(1, AllText, filename, 1) > 0 Then
content = 1
End If
oTextFile.Close
Set oTextFile = Nothing
Set FSO = NothingКод: Выделить всё
[Script]
Section=Files In List
[Files In List]
Script=FilesInList.vbs
LongName=1
ParseDirs=1
Код: Выделить всё
'==============================================================================
' Добавление полного имени файла в файл-список
'
' В качестве параметра указать:
' %L
'==============================================================================
Option Explicit
Dim FilesList
'============= Задайте файл-список ============================================
FilesList = "D:\TotalCmd\PlugIns\Wdx\ScriptContent\FilesList.txt"
'==============================================================================
If WScript.Arguments.Count = 0 Then
MsgBox "Не указан параметр - %L", _
vbOKOnly + vbExclamation, _
"Копирование имени файла в файл-список"
WScript.Quit
End If
Dim FSO, oTextFile, AllText, OTF, FileName
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)
If FSO.FileExists(FilesList) Then
Set oTextFile = FSO.OpenTextFile(FilesList, 1)
AllText = oTextFile.ReadAll
oTextFile.Close
Else
AllText = ""
End If
Do While Not OTF.AtEndOfStream
FileName = OTF.ReadLine
If InStr(1, AllText, FileName, 1) = 0 Then
Set oTextFile = FSO.OpenTextFile(FilesList, 8, 2)
oTextFile.WriteLine FileName
oTextFile.Close
End If
Loop
OTF.Close
Set oTextFile = Nothing
Set OTF = Nothing
Set FSO = Nothing
WScript.QuitКод: Выделить всё
'==============================================================================
' Удаление полного имени файла из файла-списка
'
' В качестве параметра указать:
' %L
'==============================================================================
Option Explicit
Dim FilesList
'============= Задайте файл-список ============================================
FilesList = "D:\TotalCmd\PlugIns\Wdx\ScriptContent\FilesList.txt"
'==============================================================================
If WScript.Arguments.Count = 0 Then
MsgBox "Не указан параметр - %L", _
vbOKOnly + vbExclamation, _
"Удаление имени файла из файла-списка"
WScript.Quit
End If
Dim FSO, oTextFile, AllText, OTF, FileName
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)
Set oTextFile = FSO.OpenTextFile(FilesList, 1)
AllText = oTextFile.ReadAll
oTextFile.Close
Do While Not OTF.AtEndOfStream
FileName = OTF.ReadLine
If InStr(1, AllText, FileName, 1) > 0 Then
Set oTextFile = FSO.OpenTextFile(FilesList, 2)
AllText = Replace(AllText, FileName, "", 1, -1, 1)
AllText = Replace(AllText, vbNewLine & vbNewLine, vbNewLine, 1, -1, 1)
oTextFile.Write AllText
oTextFile.Close
End If
Loop
OTF.Close
Set oTextFile = Nothing
Set OTF = Nothing
Set FSO = Nothing
WScript.Quit
Спасибо Batya, какой раз выручаешь... О таком решении я даже не догадывался...А в чём, собственно, проблема?Это будет затруднительно. (попробуй сам)
Попробуй выставить 2260 год и посмотри, что получится.Nik писал(а):А в чём, собственно, проблема?
Ну ладно, я погорячился (D1P меня пойметПопробуй выставить 2260 год и посмотри, что получится
). Можно использовать 2016