'=================== VBS ===================
' Обнулить выбранные в активной панели файлы
' Параметр: %WL
'===========================================
Title = " Обнуление файлов      "
If WSH.Arguments.Count = 0 Then WSH.Quit
If Msgbox("Выбранные файлы будут обнулены." & vbCr &_
"Вы уверены, что хотите продолжить?", 4132, Title) = 6 Then
  With CreateObject("Scripting.FileSystemObject")
    Set List = .OpenTextFile(WSH.Arguments(0),,,-1)
    Do : F = List.ReadLine : If Len(F) > 259 Then F = "\\?\" & F
      If .FileExists(F) Then
        Set Fl = .GetFile(F) : R = 0
        If Fl.Size Then A = Fl.Attributes :_
        If (A And 1) = 1 Then Fl.Attributes = A - 1 :_
        R = 1 End If : Fl.OpenAsTextStream(2).Close :_
        c = c + 1 : If R Then Fl.Attributes = A
      End If
    Loop Until List.AtEndOfStream : List.Close
  End With
  If c Then Text = "Число обнулённых файлов: " & c : N = 4160 _
  Else      Text = "Подходящие файлы не выбраны!"  : N = 4144
  CreateObject("WScript.Shell").Popup Text, 2, Title, N
End If