Секция заголовка

В этой главе вы изучали работу с папками. Сначала рассказывалось о необходимости использования объекта FileSystemObject в качестве связующего звена с файловой системой. После установки связи с файловой системой было описано использование метода CreateFolder для создания папок. Удаление папок легко реализуется посредством метода DeleteFolder. Чтобы предотвратить ошибки, можно вызвать метод FolderExists либо перед удалением, либо перед созданием папки.

Работа с файловой системой

Прежде чем начать

Для успешной работы с материалом, изложенным в этой главе, вы должны обладать навыками, о которых шла речь в предыдущих главах:

■ Использование конструкции For Each... Next

■ Применение конструкций Select Case

■ Использование констант

■ Применение внутренних свойств VBScript, таких как VbTab и Now

■ Применение конструкции lf...Then...Else

Изучив эту главу, вы будете знать, как:

■ Создавать вхождение FileSystemObject

■ Использовать FilesystemObject для вывода перечня файлов

■ Использовать FilesystemObject для создания файлов

■ Использовать FilesystemObject для подтверждения существования файлов

■ Использовать FilesystemObject для работы со свойствами файлов

■ Использовать FilesystemObject для работы с атрибутами файлов

Создание объекта файловой системы

Для взаимодействия с файловой системой сценарию необходимо уста­новить с ней соединение, чтобы можно было считывать файлы и папки. Инструментом, предназначенным для этой цели в Microsoft Visual Basic Script (VBScript) является объект файловой системы. После создания вхождения объекта файловой системы его можно использовать для вы­полнения следующих задач:

■ создание файлов и папок,

■ копирование файлов и папок,

■ перемещение файлов и папок,

■ удаление файлов и папок,

■ вывод свойств файлов и папок.

Несколько простых шагов

Чтобы вывести список файлов:

1. С помощью CreateObject создайте FileSystemObject.

2. Определите папку, в которой производится поиск, с помощью GetFolder.

3. С помощью команды Files выведите перечень файлов.

4. С помощью конструкции For Each обработайте файлы, находящиеся в папке.

Работа с файлами: что к чему

В первом сценарии Listfiles.vbs, связанном с файловой системой, будет реализовано подключение к FileSystemObject, связывание объекта файловой системы с папкой, определенной переменной FolderPath, после чего с помощью команды Files и цикла For Each на экран будут выведены все файлы, содержащиеся в папке. Это лишь малая часть того, что можно сделать с помощью этого сценария. Подумайте над тем, каким образом можно расширить возможности данного сценария, чтобы можно было выполнять некоторую действительно полезную работу по администрированию.

Option Explicit

On Error Resume Next

Dim FolderPath 'folder to be searched for files

Dim objFSO

Dim objFolder

Dim colFiles

Dim objFile

FolderPath = " C:\scriptingBook\BookScripts_VbScripf”

Set objFSO = CreateObject(“Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(FolderPath)

Set colFiles = objFolder.Files

For Each objFile In colFiles

WScript.Echo objFile.Name, objFile.Size

Next

Секция заголовка

В секции заголовка файла Listfiles.vbs располагаются обычные команды Option Explicit и On Error Resume Next. Они предназначены для объявления каждой используемой переменной и обеспечения базовых функций обработки ошибок, соответственно. Далее объявляются пять переменных, используемых в сценарии. Описание переменных приведено в табл. 1.

Табл. 1. Переменные, используемые в Listfiles.vbs

Имя переменной	Предназначение
FolderPath	Определяет папку, в которой сценарий будет производить поиск.
objFSO	Создает FileSystemObject.
objFolder	Содержит подключение к папке с использованием переменной FolderPath и метода GetFolder объекта FileSystemObject.
colFiles	Содержит набор файлов, возвращаемых командой Files.
objFile	Содержит отдельные файлы при итерации по на­бору файлов посредством конструкции For Each.