' RemoveFilesbyTime.vbs
'========================   Описание   =====================================
' Удаление в указанной папке и подпапках файлов старше указанного дня    
' Удаляются так же папки старше указанной даты, если они пустые
' Использовать крайне аккуратно!!!
' Необходимо указать в скрипте папку и день

' Автор:             Аверин Андрей
' Версия:          1.3 (27.01.2012 - 25.02.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru
'=================   Изменяемые параметры   ================================
Folder  = "E:\1234567\" ' папка в которой удаляются файлы
N = 6                    ' день старше которого файлы удаляются
'=========================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
ControlDate = Date - N
If Right(Folder, 1) = "\" Then Folder = Left(Folder, Len(Folder) - 1)
If FSO.FolderExists(Folder) = False Then
Else
   Set FFF = FSO.GetFolder(Folder) : Call ScanFold(FFF) : Set FFF = Nothing
End If
Set FSO = Nothing : WScript.Quit

Function ScanFold(FFF)
    For Each SF In FFF.SubFolders
      Call ScanFold(SF)
    Next
    For Each objFile In FSO.GetFolder(FFF).Files
      On Error Resume Next
      If objFile.DateLastModified < ControlDate Then FSO.DeleteFile objFile.Path
    Next
    On Error Resume Next
    If FFF.DateLastModified < ControlDate And FFF.Size = 0 Then
      If LCase(FFF) <> LCase(Folder) Then FSO.DeleteFolder FFF
    End If   
End Function

'========================   Описание   =====================================
' Создание панели Total Commander, содержащей ссылки на встроенные программы
'========================================================================
' Автор:             Аверин Андрей
' Версия:          1.1  (25.02.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru
'========================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
'=================   Изменяемые параметры   ================================
Const FileIcon = "%COMMANDER_PATH%\Wcmicons.dll" 'Файл иконок
Const NumIcon3 = 1345
Const NumIcon2 = 1184
Const Bar = "%COMMANDER_PATH%\BAR\000_Programm.bar" 'Панель TC
Const Wcmdini = "%COMMANDER_PATH%\Language\Wcmd_Rus.ini" 'Обрабатываемый файл
Const INI = "%COMMANDER_PATH%\Scripts\Include\FunctionsINIRWS.vbs" ' файл с функциями чтения\записи Ini файлов
Const FuncPlus = "%COMMANDER_PATH%\Scripts\Include\FunctionsPlus.vbs"  ' файл с дополнительными функциями
ProgramPath = GetPath("%COMMANDER_PATH%\Bar\Programm") ' папка для создаваемых вспомогательных .bar файлов
'========================================================================
Dim ArrProg(2000), FSO, Text, k, i, nName, n, sCount, BarFile, PathLine, NameLine, rPath, nLine, vb
If Not FSO.FolderExists(ProgramPath) Then FSO.CreateFolder(ProgramPath)
Execute FSO.OpenTextFile(GetPath(FuncPlus)).ReadAll
Call DeleteInFolderFilesExt(ProgramPath, ";bar;br2;")
TC =  "%COMMANDER_PATH%"
k = 0
vb = vbNewLine
Text = FSO.OpenTextFile(GetPath(Wcmdini)).ReadAll
Call DelProgg
For i = 1 To 2000
   n = InStr(Text, "\Programs\")
   m = InStr(Text, "\Utilities\")
   If n > m Then n = m
   If n = 0 Then Exit For
   Text = Mid(Text, n)
   Program = TC & Left(Text, InStr(Text, vb) - 1)
   Program = Replace(Program, " /recover", "")
   Name = FSO.GetBaseName(Program)
   If LCase(Name) = "start" Then Name = FSO.GetBaseName(FSO.GetParentFolderName(Program))
   Name = Replace(Name, "_", " ")
   Name = Replace(Name, "Portable-", "")
   Name = Replace(Name, "Portable", "")
   Name = Trim(Name)

   If Len(Name) > 0 Then Name = UCase(Left(Name, 1)) & Mid(Name, 2)
   butProg = "Cmd=" &TC & Left(Text, InStr(Text, "[") - 1)
   ArrProg(i) = UCase(Name) & "####" & CleanerMenu(butProg, Name)
   Text = Mid(Text, InStr(Text, "["))
Next

ArrProg2 = SelectingArrUp(ArrProg)
ArrPr = DelDublicateArr(ArrProg2)

k = 4 : n = 0 : sCount = ""
Text = "[Buttonbar]" & vb & "Buttoncount=>>>>" & vb

For i = 0 To Ubound(ArrPr)
   nName = Mid(ArrPr(i), 1, 1)
   If InStr("0123456789#", nName) > 0 Then nName = "0"
   ArrPr(i) = Mid(ArrPr(i), InStr(ArrPr(i), "####") + 4)
   k = k + 1
     if nName <> sCount Then
       if k <> 5 Then
         Call WriteBar
         n = 0
         Text = "[Buttonbar]" & vb & "Buttoncount=>>>>" & vb
       End If
     End If
     sCount = nName : n = n + 1
     ArrPr(i) = Replace(ArrPr(i), "Cmd=", "Cmd" & n & "=")
     ArrPr(i) = Replace(ArrPr(i), "Button=", "Button" & n & "=")
     ArrPr(i) = Replace(ArrPr(i), "Menu=", "Menu" & n & "=")
     ArrPr(i) = Replace(ArrPr(i), "Iconic=", "Iconic" & n & "=")
     Text = Text  & ArrPr(i)
Next
Call WriteBar

' запись путей созданных .bar файлов в основной для отображении на панели Total Commander'a
n = 4
rPath = Split(PathLine, ";")     ' массив путей создаваемых . bar файлов
nLine = Split(NameLine, ";")  ' массив имён создаваемых . bar файлов
Text = "[Buttonbar]" & vb & _
              "Buttoncount=" & UBound(nLine) + 3 & vb &  _
              "cmd1=" & vb & "button1=" & vb &  _
              "cmd2=" & Replace(WScript.ScriptFullName, GetPath("%COMMANDER_PATH%"), "%COMMANDER_PATH%") & vb&  _
              "button2=" & FileIcon & "," & NumIcon2 & vb &_
              "iconic2=0" & vb & "menu2=Обновить список" & vb &_
              "cmd3=" & vb & "button3="

For i = 0 To UBound(nLine) - 1
   Text = Text  & vb & _
              "cmd"& n & "=" & Chr(34) & Replace(rPath(i), GetPath("%COMMANDER_PATH%"), "%COMMANDER_PATH%") & Chr(34) & vb & _
              "button"& n & "=" & FileIcon & "," & NumIcon3 & vb & _
              "menu"& n & "= Программы ''" & Replace(nLine(i), "_", Chr(32)) & "''" & vb & _
              "iconic"& n & "=1"
   n = n + 1
Next

FSO.OpenTextFile(GetPath(Bar), 2, True).Write Text
Set FSO = Nothing : WScript.Quit

' запись .bar файлов
Sub WriteBar
   BarFile = ProgramPath & "\Programs_" & sCount & ".bar"
   Text = Replace(Text, ">>>>", n)
   On Error Resume Next
   FSO.OpenTextFile(BarFile, 2, True).Write Text
   PathLine = PathLine & BarFile & ";"         ' строка путей создаваемых . bar файлов
   NameLine = NameLine & sCount & ";"    ' строка имён создаваемых . bar файлов
End Sub

Function CleanerMenu(bpText, bpName)
   c = InStr(LCase(bpText), "menu=")
   Text1 = Left(bpText, c - 1)
   Text2 = Mid(bpText, c)
   c = InStr(Text2, vb)
   Menu = Left(Text2, c + 1)
   Text2 = Mid(Text2, c + Len(vb))
   nMenu = Menu
   Menu = Replace(Menu, "..." & vb, vb)
   Menu = Replace(Menu, "++" & vb, vb)
   Menu = Replace(Menu, " µTorrent", " ")
   Menu = Replace(Menu, " Ctrl+Shift+/(?)", "")
   Menu = Replace(Menu, "\tCtrl+Alt+W", "")
   For s = 1 To 4
     Menu = RegExpReplace(Menu, "(.*) ([a-z|A-Z|0-9]|-|_|)+(" & vb & ")", "$1$3", 1, 1, 1)
   Next
   Menu = RegExpReplace(Menu, "(.*)(\\t.*)(" & vb & ")", "$1$3", 1, 1, 1)
   Menu = RegExpReplace(Menu, "(.*)(=)([a-z|A-Z|0-9|.| |])+(" & vb & ")", "$1$2$4", 1, 1, 1)

   Menu = Replace(Menu, " с" & vb, vb)
   Menu = Replace(Menu, " в" & vb, vb)
   Menu = Replace(Menu, " по" & vb, vb)
   Menu = Replace(Menu, " о" & vb, vb)
   Menu = Replace(Menu, " -" & vb, vb)
   Menu = Replace(Menu, " через" & vb, vb)
   Menu = Replace(Menu, " в  ДРУГУЮ панель…" & vb, vb)
   Menu = Replace(Menu, " под курсором", "")
   Menu = Replace(Menu, "/повреждённых", "")
   Menu = Replace(Menu, " из выделенной на экране области", "")
   Menu = Replace(Menu, " (запусти и нажми 2 раза Alt)", "")
   Menu = RegExpReplace(Menu, "(.*)(  )+(.*)(" & vb & ")", "$1$4", 1, 1, 1)
   Menu = RegExpReplace(Menu, "( )+(" & vb & ")", "$2", 0, 1, 1)

   If LCase(Menu) = "menu=" & vb Then
     Menu = nMenu
   Else
     If Menu <> "Menu=" & bpName Then Menu = Replace(Menu, "Menu=", "Menu=" & bpName & " - ")
   End If
   If Len(Menu) = 0 Then Menu = bpName
   CleanerMenu = Text1 & Menu & Text2
End Function

Sub DelProgg
   Dim PR(40)
   PR(0) = "%COMMANDER_PATH%\Utilities\TotalCom\TCMC\TCMCWindow.exe"
   PR(1) = "%COMMANDER_PATH%\Utilities\Images\LibCreate\LibCreate.exe"
   PR(2) = "%COMMANDER_PATH%\Utilities\Systems\WinHlp\hh.exe"
   PR(3) = "%COMMANDER_PATH%\Utilities\TotalCom\ReloadTC\ReloadTC.exe"
   PR(4) = "%COMMANDER_PATH%\Utilities\Scripting\AutoIt\AutoIt3.exe"
   PR(5) = "%COMMANDER_PATH%\Programs\Cleaners\Ace_Utilities\au.exe"
   PR(6) = "%COMMANDER_PATH%\Utilities\MultiMedia\Twinamp\Wac.exe"
   PR(7) = "%COMMANDER_PATH%\Utilities\Inet\WGet\DownloadWGet.vbs"
   PR(8) = "%COMMANDER_PATH%\Utilities\Inet\WGet\DownloadWGetWithBuffer.vbs"
   PR(9) = "%COMMANDER_PATH%\Utilities\TotalCom\TCFS2\TCFS2.exe"
   PR(10) = "%COMMANDER_PATH%\Utilities\Images\LlibConv\LlibConv.exe"
   PR(11) = "%COMMANDER_PATH%\Utilities\TotalCom\TCmenu\TCmenu_12\TCmenu.exe"
   PR(12) = "%COMMANDER_PATH%\Utilities\TotalCom\TCmenu\TCmenu_16\TCmenu.exe"
   PR(13) = "%COMMANDER_PATH%\Utilities\TotalCom\TCmenu\TCmenu_20\TCmenu.exe"
   PR(14) = "%COMMANDER_PATH%\Utilities\TotalCom\TCmenu\TCmenu_24\TCmenu.exe"
   PR(15) = "%COMMANDER_PATH%\Utilities\TotalCom\TcMenuPopup\TcMenuPopup.exe"
   PR(16) = "%COMMANDER_PATH%\Utilities\TotalCom\ImmortalTC\ImmortalTC.exe"
   PR(17) = "%COMMANDER_PATH%\Utilities\Systems\Hidcon\Hidcon.exe"
   PR(18) = "%COMMANDER_PATH%\Utilities\CD\OSFMount\OSFMount.com"
   PR(19) = "Path=" & vb
   PR(20) = "%COMMANDER_PATH%\Utilities\Commander\AskParam\AskParam.exe"
   PR(21) = "%COMMANDER_PATH%\Utilities\Systems\Hidcon"
   PR(22) = "%COMMANDER_PATH%\Programs\Graphics\IrfanView\i_view32.exe"
   PR(23) = "%COMMANDER_PATH%\Programs\Internet\UTorrent\Utorrent_1.8_fakeup2x_seeder.exe"
   PR(24) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_fakeup2x_leecher.exe"
   PR(25) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_mult100_leecher.exe"
   PR(26) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_mult100_seeder.exe"
   PR(27) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_mult10_leecher.exe"
   PR(28) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_mult10_seeder.exe"
   PR(29) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_noreport.exe"
   PR(30) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_report.exe"
   PR(31) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_stealth.exe"
   PR(32) = "%COMMANDER_PATH%\Programs\Text\Office_2010\"
   PR(33) = "%COMMANDER_PATH%\Programs\Internet\Opera_AC\OperaLauncher.exe"
   PR(34) = "%COMMANDER_PATH%\Utilities\TotalCom\DupSel\DupSel.exe"
   PR(35) = "%COMMANDER_PATH%\Programs\Defragmentation\DiscSpeedUp\DiskSpeedUpPortable.exe"
   PR(36) = "%COMMANDER_PATH%\Programs\Audio\Zortam_Mp3_Media_Studio\Zplayer.exe"
   PR(37) = "%COMMANDER_PATH%\Programs\Graphics\XnView\xnview.exe"
   PR(38) = "%COMMANDER_PATH%\Programs\Arhive\WinRAR\WinRAR.exe"
   PR(39) = "%COMMANDER_PATH%\Utilities\Images\XnConvert\XnConvert.exe"
   PR(40) = "%COMMANDER_PATH%\Programs\Internet\Opera_AC\opera.exe"
   Text = RegExpReplace(Text, ".*" & vb & "Cmd=CD .*" & vb & ".*" & vb & ".*" & vb & ".*" & vb & ".*" & vb & "Iconic=0" & vb, "", 1, 1, 1)
   Text = RegExpReplace(Text, "Param=.*"  & vb, "", 0, 1, 1)
   For k = 0 To Ubound(PR)
     Text = Replace(Text, PR(k), "")
   Next
End Sub

Function GetPath(pPath)
   GetPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings(pPath)
End Function

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Bar\000_Programm.bar

%COMMANDER_PATH%\wcmicons.dll,68
Все программы в алфавитном порядке

1
-1