MsDatabaseru |
подобное использование требует ссылки на скриптинг библиотеку использование createobject более универсально |
Если честно, то просто решил сэкономить время. Можно конечно
Dim objFSO As FileSystemObject
заменить на
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")