Batya
|
 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 |
В дальнейшем кроме текста ошибки пиши, что у тебя в строке, на которой произошла ошибка.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
