Flasher
|
 Posted: Tue Jun 06, 2017 22:52 Post subject: |
 |
|
Проверил несколько приведённых путей, всё трёт. Win 7x32.
Значит, проблема в системе.
Другой вариант:
| Code: | '=================== 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 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri Jun 23, 2017 12:29; edited 10 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
