Доступ к файлам

Доступ к файлам

Итак, библиотека Microsoft Scripting Runtime установлена, соответствующая ссылка в VBA проект добавлена. Теперь вы готовы приступить к созданию объектно-ориентированного программного кода, обеспечивающего возможность манипуляций с любыми файлами на диске. При работе с файлом как с объектом выполняются следующие действия.

1. Создание FileSystemObject - объекта высшего уровня, обеспечивающего доступ к файлам на диске.

2. Вызов подходящего метода объекта FileSystemObject для открытия нужного файла или для создания нового файла для использования.

3. Работа с файловым объектом с помощью его методов и свойств.

Практическая реализация этих действий иллюстрируется следующим фрагментом программного кода. В нем сначала создается объект File для файла lacewings.txt, а затем этот файл копируется в другое место на диске:

Dim objFileSystem As FileSystemObject

Dim objTextStreaml As File

Set objFileSystem = _

CreateObject("Scripting.FileSystemObject")

Set objFilel = _

objFileSystem.GetFile("C:ugslacewings.txt")

objFilel.Copy ("C:Мои документыuggy.txt")