FRNET.NAROD.RU » Статьи » Работа с каталогами. Часть 1

Автор: Алексей Голубев

Сайт: http://www.frnet.narod.ru/

В одной из своих статей я рассказывал, как при помощи элемента FileSystemObject, управляемого JavaScript или VBScript создать текстовый файл. Однако, данный элемент позволяет нам выполнять гораздо больший ряд функций. В данной статье я расскажу о работе с каталогами, а именно об их создании и удалении.

1. Создание каталога.

Естественно первым пунктом мы рассмотри создание каталога при помоши FileSystemObject. Рассмотрим два скрипта, выполняющих одно и то же действие на двух языках:

А) JavaScript

function create_folder() {
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateFolder("c:\\new_folder"); }

Итак, мы только что написали функцию, которая будет создавать каталог: c:\new_folder. Первая строчка кода создает объект FileSystemObject, а вторая непосредственно сам каталог. Из функции видно, что для этого используется метод CreateFolder. Стоит отметить, что при наличии каталога new_folder в корневом каталоге диска С: возникнет ошибка.

Б) VBScript

Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New_Folder")
CreateFolderDemo = f.Path
End Function

Думаю, все понятно без слов, поэтому перехожу к следующему пункту.

2. Удаление каталога.

Для того же самого элемента FileSystemObject существует метод DeletFolder. В JavaScript его синтаксис выглядит следующим образом:

object.DeleteFolder ( folderspec[, force] )

Здесь: object – экземпляр объекта FileSystemObject
Folderspec – полный адрес каталога, который нужно удалить.
Force – это логический параметр, который указывает доступен ли только для чтения каталог или нет. Данный параметр указывать необязательно.

Нет разницы, содержит ли каталог информацию или нет. Данный метод будет его удалять. Вот пример функции, удаляющей каталог:

function DeleteFolder(folderspec) {
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFolder(folderspec); }

Теперь перейдем к VBScript. Здесь синтаксис метода такой же, как и в JavaScript. Вот пример на VBS:

Sub DeleteAFolder(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
End Sub

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

P.S. Вы можете скачать пример, разобранный в статье.