Помогите разобраться!

[Welder]

пишу скрипт такого типа:
Dim MyPath
Mypath = "c:\temp\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dir = FSO.GetFolder(Mypath)
Set Folders = Dir.SubFolders

For Each Lfolder In Folders
WScript.Echo Mypath & LFolder.Name
WScript.Echo GetAttr(Mypath & LFolder.Name)
Next

На строчке WScript.Echo GetAttr(Mypath & LFolder.Name) происходит ошибка type mismatch. Что не так?
Заранее спасибо!

[RayShade]

Я так думаю, что GetAttr это не встроенная функиця. Поэтому перед ней, надо бы ставить имя объекта из которого она вызывается

[Welder]

Дык она же не говорит что не знает GetAttr, а говороит:
Microsoft VBScript runtime error: Type mismatch: 'GetAttr'

[GSerg]

А ты Option Explicit поюзай.

Сразу увидишь

Код: Выделить всё

---------------------------
Сервер сценариев Windows
---------------------------
Сценарий:   C:\1.vbs
Строка:   10
Символ:   1
Ошибка:   Переменная не определена: 'GetAttr'
Код:   800A01F4
Источник:    Ошибка выполнения Microsoft VBScript

---------------------------
ОК   
---------------------------

[alibek]

А подумать?
Если такой функции нет, значит ты выводишь элемент массива GetAttr. А поскольку индекс массива указывается числом, а не строкой, оттуда и ошибка.

[RayShade]

Хм.. Встроенная оказывается

А тогда, я думаю что она не работает в VBS, вот что

[Welder]

Как быть тогда, мне нужны дирктории которые с атрибутом system?

[GSerg]

Видимо, пользоваться средствами созданного FSO?
Только интересно - зачем скрипту могли понадобиться системные папки?

[Welder]

Да они мне как раз и не нужны, мне с них нужно снят этот атрибут.
Кто подскажет как это делается стандартными средствами FSO?
Сильно не пинайте, но я пишу свой первый VB скрипт.