View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 22:01 Post subject: |
|
|
Последний скрипт не пробовал. Там какие-то заморочки с ярлыками, не очень пока понял, тему не шерстил. С предыдущим вроде порядок. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Mon Sep 26, 2011 13:16 Post subject: |
|
|
Нда... Хоть в отпуск не ходи ))
angry_dog
Я уже сам запутался в предлагаемых изменениях. Что у тебя в 181-ой строке скрипта? _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Sep 26, 2011 16:37 Post subject: |
|
|
Batya
Судя по всему, это:
Code: | For Each Menu1 in SubFold.Files |
|
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Tue Sep 27, 2011 14:22 Post subject: |
|
|
Batya wrote: | Нда... Хоть в отпуск не ходи ))
Что у тебя в 181-ой строке скрипта? |
Прости, Батя за отпуск) в 181 строке:
For Each Menu1 in SubFold.Files |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Thu Sep 29, 2011 12:04 Post subject: |
|
|
angry_dog
Вместо этой строки пропиши:
Code: | 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 |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Sun Oct 02, 2011 13:24 Post subject: |
|
|
Batya wrote: | Вместо этой строки пропиши: |
Если в "параметры" не ставить "0", не происходит ничего. С "0" в параметрах ошибка:
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\temp\789.vbs
Строка: 186
Символ: 2
Ошибка: Разрешение отклонено
Код: 800A0046
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
--------------------------- |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Wed Oct 05, 2011 11:10 Post subject: |
|
|
angry_dog wrote: | Если в "параметры" не ставить "0", не происходит ничего. |
Так и должно быть. В этом режиме только меняется ключ реестра.
angry_dog wrote: | С "0" в параметрах ошибка: |
Странно. Давай, попробуем вместо (в изначальном скрипте) Code: | 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 | записать Code: | 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 |
В дальнейшем кроме текста ошибки пиши, что у тебя в строке, на которой произошла ошибка. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|