Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
))Код: Выделить всё
For Each Menu1 in SubFold.FilesПрости, Батя за отпуск) в 181 строке:Batya писал(а):Нда... Хоть в отпуск не ходи
Что у тебя в 181-ой строке скрипта?
Код: Выделить всё
Dim FF
On Error Resume Next
Set FF = SubFold.Files
If (Err.Number > 0) Or (Not IsObject(FF)) Then FF = Array()
On Error GoTo 0
For Each Menu1 in FFЕсли в "параметры" не ставить "0", не происходит ничего. С "0" в параметрах ошибка:Batya писал(а):Вместо этой строки пропиши:
Так и должно быть. В этом режиме только меняется ключ реестра.angry_dog писал(а):Если в "параметры" не ставить "0", не происходит ничего.
Странно. Давай, попробуем вместо (в изначальном скрипте)angry_dog писал(а):С "0" в параметрах ошибка:
Код: Выделить всё
For Each Menu1 in SubFold.SubFolders
k = k + 1
ProcessFolder F1, Menu1, k, NewBar
Next
For Each Menu1 in SubFold.Files
If (Menu1.Attributes and Hidden) <> Hidden Then
k = k + 1
ProcessFile F1, Menu1, k
End If
Next Код: Выделить всё
Dim FF
On Error Resume Next
Set FF = SubFold.SubFolders
On Error GoTo 0
If IsObject(FF) Then
For Each Menu1 in FF
k = k + 1
ProcessFolder F1, Menu1, k, NewBar
Next
End If
On Error Resume Next
Set FF = SubFold.Files
On Error GoTo 0
If IsObject(FF) Then
For Each Menu1 in FF
If (Menu1.Attributes and Hidden) <> Hidden Then
k = k + 1
ProcessFile F1, Menu1, k
End If
Next
End If