Пустой каталог

[Sorter]

Вопрос:

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

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Dir")

Если каталог С:\DIR пустой, вылетает ошибка.

Как без ошибок определить, что каталог пустой?

[RayShade]

Первое что приходит на ум это, включить обработку ошибок и просто смотреть на err.number.

[alibek]

Второе -- а нельзя ли обойтись функцией Dir$()?

[Andrey Fedorov]

Вопрос:

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

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Dir")

Если каталог С:\DIR пустой, вылетает ошибка.

Как без ошибок определить, что каталог пустой?

Ошибки при существующем каталоге не происходит.
Вообще-то так.