Сайт: 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 в корневом каталоге диска С: возникнет ошибка.
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateFolder("c:\\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
Думаю, все понятно без слов, поэтому перехожу к следующему пункту.
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 – экземпляр объекта FileSystemObjectFolderspec – полный адрес каталога, который нужно удалить.
Force – это логический параметр, который указывает доступен ли только для чтения каталог или нет. Данный параметр указывать необязательно.
Нет разницы, содержит ли каталог информацию или нет. Данный метод будет его удалять. Вот пример функции, удаляющей каталог:
function DeleteFolder(folderspec) {
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFolder(folderspec); }
Теперь перейдем к VBScript. Здесь синтаксис метода такой же, как и в JavaScript. Вот пример на VBS:
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFolder(folderspec); }
Sub DeleteAFolder(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
End Sub
Объект FileSystemObject позволяет совершать различные действия над каталогами и файлами, как то: создание, удаление, копирование, перемещение, просмотр некоторых атрибутов файлов и каталогов. Однако это уже темы для следующих статей.
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
End Sub
P.S. Вы можете скачать пример, разобранный в статье.
