View previous topic :: View next topic |
Author |
Message |
Riabchik
Joined: 06 Jun 2017 Posts: 9
|
(Separately) Posted: Tue Jun 06, 2017 23:44 Post subject: |
|
|
чего-то я уже не понимаю...
Взял и скопировал все с флешки (с тем что не обнулилось) на винт и кнопка сработала!
Пропустило лишь пару файлов.
Все что поменялось это только диск с "z" на "y". Но странно то, то структура папок с буквой "і" была и среди тех которые обнулились и среди тех, которых пропустило.
y:\1\soft\winamp\update до вінампу\SRS Audio Sandbox 1.10.2.0\SRS_Audio_Sandbox.exe
y:\1\soft\winamp\update до вінампу\SRS Audio Sandbox 1.10.2.0\SRSSSC.exe
y:\1\soft\Android\HTC One M7 802w\HTC Driver\HTC_Drivers_2013\HTC_Drivers_2013\HTC Driver\qcser2k.sys
y:\1\soft\Android\HTC One M7 802w\HTC Driver\HTC_Drivers_2013\HTC_Drivers_2013\HTC Driver\qcserxp.sys
Эти пропустило.
Я в ступоре, даже не знаю что я делаю не так |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jun 06, 2017 23:56 Post subject: |
|
|
Остаётся забыть и использовать другой вариант. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Riabchik
Joined: 06 Jun 2017 Posts: 9
|
(Separately) Posted: Wed Jun 07, 2017 00:06 Post subject: |
|
|
Создал кнопку с командой по файлу vbs
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\VBS\Filenull.vbs
C:\WINDOWS\System32\WScript.exe,2
Filenull
%COMMANDER_PATH%\VBS\
-1
При выполнении вот такой результат:
---------------------------
Windows Script Host
---------------------------
Script: C:\totalcmd\VBS\Filenull.vbs
Line: 9
Char: 5
Error: Subscript out of range
Code: 800A0009
Source: Microsoft VBScript runtime error
---------------------------
OK
--------------------------- |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Jun 07, 2017 01:47 Post subject: |
|
|
Я давал ссылку на памятку. Там есть общие положения.
Кое-что (касаемо не файлов) в скрипте поправил. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Riabchik
Joined: 06 Jun 2017 Posts: 9
|
(Separately) Posted: Thu Jun 08, 2017 20:42 Post subject: |
|
|
С последним вариантом скрипта вообще не запускается. При нажатии на кнопку ничего не происходит. Может есть где лог чтоб посмотреть в чем загвоздка? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 08, 2017 21:33 Post subject: |
|
|
Загвозка в нежелании читать памятку и внимательно смотреть в шапку скрипта.
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Riabchik
Joined: 06 Jun 2017 Posts: 9
|
(Separately) Posted: Fri Jun 09, 2017 10:08 Post subject: |
|
|
Прошу прощения но я не знаю куда применять этот параметр. Поиск по форуму выдает кучу кнопок и других скриптов где он (этот параметр) встречается в коде, но чтоб найти инфу как настроить/применять его... Либо я ищу не в том месте
Погуглил, понял что он связанный именно с моей проблемой связанной с символами и длиной имени и структуры каталогов. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10261 Location: Россия, Саратов
|
(Separately) Posted: Fri Jun 09, 2017 10:14 Post subject: |
|
|
Riabchik
Начать поиск (как и во многих других случаях) следовало отсюда. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Riabchik
Joined: 06 Jun 2017 Posts: 9
|
(Separately) Posted: Fri Jun 09, 2017 12:32 Post subject: |
|
|
Большое спасибо люди добрые! Разобрался где я тупил
Все работает но есть одно но. Если в списке попадается хотя б один файл с атрибутом только чтения то скрипт на нем и останавливается с ошибкой
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\totalcmd\VBS\Filenull.vbs
Строка: 13
Символ: 7
Ошибка: Разрешение отклонено
Код: 800A0046
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
---------------------------
Можно добавить опцию уточнять обнулять такие файлы или нет, либо вообще просто пропускать их а не останавливать скрипт?
Еще раз большое спасибо. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 09, 2017 18:46 Post subject: |
|
|
Riabchik wrote: | Прошу прощения но я не знаю куда применять этот параметр. | Я для чего тут ссылку давал? Чтобы её в очередной раз проигнорировать? В п. 5 всё разжёвано:
Памятка wrote: | Если в шапке скрипта указаны параметры, откройте диалог настройки новой кнопки (через контекстное меню) или пользовательской команды и в поле "Параметры:" впишите заданные. |
Сделал, чтобы файлы только для чтения тоже обнулялись. Или не надо было? Просто я не вижу особого смысла в спотыкаче с вопросом на каждом таком файле.
Есть ещё вариант с дополнением фильтрации и рекурсии в выбранных папках: Code: | '••••••••••••••••••• VBS •••••••••••••••••••
' Обнулить выбранные в активной панели
' или в структурах выбранных каталогов файлы
' Параметры: %WL <маска файлов> <рекурсия:1>
' Примеры: %WL | %WL *.txt;*.log 1
'••••••••••••••••••••••••••••• Flasher © •••
With WSH.Arguments
C = .Count : If C = 0 Then WSH.Quit
List = .Item(0) : If C > 1 Then Mask = .Item(1)
If C = 3 Then Rec = .Item(2)
End With : Title = " Обнуление файлов "
If Msgbox("Выбранные файлы будут обнулены." & vbCr &"Вы" &_
" уверены, что хотите продолжить?", 4132, Title) <> 6 Then WSH.Quit
Dim x : If Mask = "" Then Mask = "*.*"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ShAp = CreateObject("Shell.Application")
Set List = FSO.OpenTextFile(List,,,-1)
Do : F = List.ReadLine : If Len(F) > 259 Then F = "\\?\" & F
If FSO.FileExists(F) Then
If Mask = "*.*" Or InStr(";" & Mask &_
";", ";*." & FSO.GetExtensionName(F) & ";") Then FFile F
ElseIf FSO.FolderExists(F) Then FFolder F End If
Loop Until List.AtEndOfStream : List.Close
If x Then Text = "Число обнулённых файлов: " & x : N = 4160 _
Else Text = "Подходящие объекты не выбраны!" : N = 4144
CreateObject("WScript.Shell").Popup Text, 2, Title, N
Sub FFolder(Fold)
Set Items = ShAp.Namespace(Fold).Items
Items.Filter 73952, Mask
If Items.Count Then
For Each I in Items
If FSO.FileExists(I.Path) Then FFile I.Path
Next
End If : If Rec = 1 Then _
For Each Fd in FSO.GetFolder(Fold).SubFolders : FFolder Fd.Path : Next
End Sub
Sub FFile(File)
With FSO.GetFile(File)
If .Size Then
x = x + 1 : A = .Attributes
If (A And 1) = 1 Then .Attributes = A - 1 : R = 1
.OpenAsTextStream(2).Close : If R Then .Attributes = A
End If
End With
End Sub |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri Jun 23, 2017 12:27; edited 2 times in total |
|
Back to top |
|
|
Riabchik
Joined: 06 Jun 2017 Posts: 9
|
(Separately) Posted: Wed Jun 14, 2017 09:37 Post subject: |
|
|
Супер! То что надо!
Еще раз спасибо за помощь.
С параметром %WL я разобрался еще с прошлого раза
Не внимательно читал инструкции. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Jun 14, 2017 10:02 Post subject: |
|
|
Пожалуйста. Ещё маленький штришок внёс. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Mailk
Joined: 16 Jan 2010 Posts: 251
|
(Separately) Posted: Thu Jun 15, 2017 19:57 Post subject: |
|
|
Скрипт хорошо, но иногда проще найти другие решения. Я бы воспользовался WDX плагином либо" метку "ставил в сам фаил или в потоке. Благо внесение данных вроде в медиа файлы есть . Например в тег "==" и на это фильтр поставить. После сортировка или цвет изменить у скопированных файлов в основном источнике и копировать где нет метки, после того как скопировано можно метку ставить . А если придет обновление списка файлов или изменение как определите что скопировано а что нет? только список на флешке, ее можно потерять или убить.
Авада , а че такой ты злой и удаляешь что сам посчитаешь не нужно? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 22, 2017 13:57 Post subject: |
|
|
Mailk
Я не понял смысла предложений. Как с помощью wdx предлагается обнулять файлы? Какое отношение к делу имеют метки, потоки, сортировка, цвета, копирование? Ты топиком не ошибся? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10261 Location: Россия, Саратов
|
(Separately) Posted: Thu Jun 22, 2017 14:30 Post subject: |
|
|
Mailk
Когда нечего сказать по теме, лучше промолчать. Не имеющий отношения с делу смысловой мусор удалялся и будет удаляться. А если я увижу ещё хотя бы одну попытку выяснения отношений с модератором непосредственно на форуме, то выписка бана не задержится. Надоели уже все эти художества — и вместе, и поврозь. Включая и всякие псевдорекомендации в разных темах, в том числе с подъёмом давно законченных обсуждений.
Замечание за нарушение правил форума и последнее предупреждение.
Flasher
Он форумом ошибся. Давно и безнадёжно. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
|