Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

End Function

Function Unregister

 'Создаем объект WshShell

 Set WshShell = CreateObject("WScript.Shell")

 WshShell.Popup "Компонент удален из системы",0,_

"Компонент для архивирования файлов",vbInformation

End Function

]]>

</script>

 </registration>

 <public>

<property name="SFrom">

<get/>

<put/>

</property>

<property name="SArch">

<get/>

<put/>

</property>

<property name="SPref">

<get/>

<put/>

</property>

<property name="SMask">

<get/>

<put/>

</property>

<property name="SErrMess">

<get/>

</property>

<method name="FilesToArchiv">

</method>

 </public>

 <script language="VBScript">

<![CDATA[

Dim SFrom 'Исходный

каталог для архивирования

Dim SArch 'Каталог, в котором будет создаваться архив

Dim SPref 'Префикс файла

Dim SMask 'Маска, по которой отбираются файлы для

'архивирования

Dim SErrMess 'Текст сообщения об ошибке

'Чтение и запись свойства SFrom

Function get_SFrom

 get_SFrom = SFrom

End Function

Function put_SFrom(newValue)

 SFrom = newValue

End Function

'Чтение и запись свойства SArch

Function get_SArch

 get_SArch = SArch

End Function

Function put_SArch(newValue)

 SArch = newValue

End Function

'Чтение и запись свойства SPref

Function get_SPref

 get_SPref = SPref

End Function

Function put_SPref(newValue)

 SPref = newValue

End Function

'Чтение

и запись свойства SMask

Function get_SMask

 get_SMask = SMask

End Function

Function put_SMask(newValue)

 SMask = newValue

End Function

'Чтение свойства SErrMess

Function get_SErrMess

 get_SErrMess = SErrMess

End Function

'Вспомогательная функция для символьного представления даты

Function NowIs

 Dim d,s,s1

 s=""

 s1=""

 'Определяем текущую дату

 d=Date

 'Выделяем номер месяца

 s=s & Month(d)

 'Если месяц представляется одним символом, добавляем слева "0"

 If Len(s)=1 Then

s="0" & s

 End If

 'Выделяем в дате день

 s1=s1 & Day(d)

 'Если день представляется одним символом, добавляем слева "0"

 If Len(s1)=1 Then

s1="0" & s1

 End If

 s=s & s1

 'Возвращаем сформированную строку

 NowIs=s

End Function

'Проверка доступности каталогов

Function CheckPath

 Dim FSO

 'Создаем объект FileSystemObject

 Set FSO=CreateObject("Scripting.FileSystemObject")

 'Проверяем доступность исходного каталога

 If Not FSO.FolderExists(SFrom) Then

'Исходный каталог не существует

'Формируем строку с информацией об ошибке

SErrMess="Не найден исходный каталог " & SFrom

CheckPath=false

 End If

 'Проверяем доступность каталога для архивирования

 If Not FSO.FolderExists(SArch) Then

'Каталог для архивирования не существует

'Формируем строку с информацией об ошибке

SErrMess="Не найден каталог для хранения архивов " & SArch

CheckPath=false

 End If

 'Если оба каталога существуют, возвращаем true