'=================== 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 |