Single Post - Создание BAR-файла на основе заданного набора ярлыков

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Usergroups

Single Post

Author

Message

Batya

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

_________________
Нет, я не сплю. Я просто медленно моргаю.