Образец файлового учебного пособия CODE_ASP

------------------------------------------------------ ---------------------------

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Пример файлового кода

'

Copyright 1998 Microsoft Corporation. Все права защищены.

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Опция явная

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

Ниже приведено цитируемое содержание:

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Некоторые легко добываемые глобальные переменные

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Dim tabstop

Dim Newline

Const testdrive = "c"

Const testfilepath = "c: тест"

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Постоянный возвращен Drive.drivetype

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Constrivety -propemovable = 1

Constrivetypefixed = 2

ConstravetypenetWork = 3

Const DriveTypeCdrom = 4

Const DrivetyPeramDisk = 5

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Постоянный возвращен File.attributes

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Const fileattrnormal = 0

Const fileattrreadonly = 1

Const fileattrhidden = 2

Const fileattrsystem = 4

Const fileattrvolume = 8

Const filattrdirectory = 16

Const filatTrarchive = 32

Const filattralias = 64

Const filattrcompressed = 128

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Константа, используемая для открытия файла

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Const OpenFileForreading = 1

Const OpenFileForWriting = 2

Const openfileForPancing = 8

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Showdrivetype

'

' Цель:

'

«Сгенерируйте строку, которая описывает тип привода заданного объекта привода.

'

'Продемонстрировать следующее

'

' - Drive.drivetype

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Функция Showdrivetype (Drive)

Смутный

Выберите Case Drive.drivetype

Дело DivetyPemoveable

S = "Съемный"

Case rivetypefixed

S = "Исправлен"

Case DriveTypenetWork

S = "Сеть"

Случай DriveTypecdrom

S = "CD-ROM"

Дело Rivetyperamdisk

S = "ОЗУ диск"

Случай еще

S = "Неизвестно"

Конец выбора

Showdrivetype = s

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'ShowFileattr

'

' Цель:

'

«Сгенерируйте строку, которая описывает свойства файла или папки.

'

'Продемонстрировать следующее

'

' - file.attributes

' - folder.attributes

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Функция showfileattr (file) 'файл может быть файлом или папкой

Смутный

Dim attr

Attr = file.attributes

Если attr = 0, тогда

Showfileattr = "Нормальный"

Выходная функция

Конец, если

Если ATTR и FILEATTRDIRECTORY, то S = S & amp;

Если ATTR и FILEATTRREAKONLY, то S = S & amp;

Если ATTR и FILEATTRHIDDEN, то S = S & amp;

Если ATTR и FILEATTRSYSTEM, то S = S & amp;

Если ATTR и FILEATTRVOLUME, то S = S & amp;

Если ATTR и FILEATTRARCHIVE, то S = S & amp;

Если ATTR и FILEATTRALIAS, то S = S & amp;

Если ATTR и FILEATTRCOMPRED, то S = S & amp;

Showfileattr = s

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'GeneratedRiveInformation

'

' Цель:

'

«Сгенерируйте строку, которая описывает текущее состояние доступного диска.

'

'Продемонстрировать следующее

'

' - fileystemobject.drives

' - Итерация коллекции дисков

' - Drives.count

' - Drive.AlailableSpace

' - Drive.driveletter

' - Drive.drivetype

' - Drive.filesystem

' - Drive.freespace

' - Drive.isredy

' - Drive.path

' - Drive.serialNumber

' - Drive.shareName

' - riv.totalsize

' - Drive.volumeName

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Функция GeneratedRiveInformation (FSO)

Dim Drive

Dim Drive

Смутный

SET DIRIVES = FSO.DRIVES

S = "Количество дисков:" & amp;

'Создайте первую строку отчета.

S = s & amp;

S = s & amp;

S = s & amp;

S = S & amp;

S = s & amp;

S = S & abt;

'Создайте вторую строку отчета.

S = S & amp;

S = S & amp;

S = s & amp;

S = S & amp;

S = s & amp;

S = s & amp;

S = s & amp;

S = s & amp;

S = s & amp;

S = S & amp;

'Отдельные ряды.

S = s & amp;

Для каждого диска в дисках

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

Если rive.isredy then

Если DriveTypenEtWork = rive.drivetype тогда

S = S & amp;

Еще

S = s & amp;

Конец, если

S = s & amp;

S = S & amp;

S = s & amp;

S = S & amp;

S = S & amp;

Конец, если

S = S & amp;

Следующий

GeneratedRiveInformation = s

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'GenerateFileInformation

'

' Цель:

'

'Сгенерируйте строку для описания текущего состояния файла.

'

'Продемонстрировать следующее

'

' - file.path

' - Имя файла

' - file.type

' - file.dateCreated

' - file.datelastaccessed

' - file.datelastmodified

' - file.size

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Функция GENERATEFILEINFormation (файл)

Смутный

S = newline & amp;

S = S & aSt;

S = S & aSt;

S = S & amp;

S = S & aSt;

S = S & amp;

S = S & aSt;

S = S & amp;

GenerateFileInformation = s

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'GenerateFolderInformation

'

' Цель:

'

«Сгенерируйте строку для описания текущего состояния папки.

'

'Продемонстрировать следующее

'

' - folder.path

' - folder.name

' - folder.DateCreated

' - folder.datelastaccacted

' - folder.datelastmodified

' - folder.size

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Функция GenerateFolderInformation (папка)

Смутный

S = PATH: "& amp;

S = S & amp;

S = S & aSt;

S = S & aSt;

S = S & amp;

S = S & aSt;

S = S & aSt;

GenerateFolderInformation = s

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Generateallolderinformation

'

' Цель:

'

«Сгенерируйте строку для описания текущего состояния папки и всех файлов и подпапок.

'

'Продемонстрировать следующее

'

' - folder.path

' - folder.subfolders

' - folders.count

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Функция generateallOwderTerinformation (папка)

Смутный

Тусклые подпапки

DIMBOLDER

DIM -файлы

DIM -файл

S = папка: "& amp;

Set files = folder.files

Если 1 = files.count тогда

S = S & amp;

Еще

S = S & aT;

Конец, если

Если files.count & lt; & gt;

Для каждого файла в файлах

S = s & amp;

Следующий

Конец, если

Установить sublosters = folder.subfolders

Если 1 = подпапки.

S = S & aSt;

Еще

S = S & aSt;

Конец, если

Если subloders.count & lt; & gt;

Для каждой подпапки в подпапке

S = S & amp;

Следующий

S = S & amp;

Для каждой подпапки в подпапке

S = S & amp;

Следующий

Конец, если

GenerateallFolderInformation = s

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'GenerateTeStinformation

'

' Цель:

'

«Сгенерируйте строку для описания текущего состояния папки C: Test и всех файлов и подпапок.

'

'Продемонстрировать следующее

'

' - fileystemobject.driveexists

' - fileystemobject.folderexists

' - fileystemobject.getFolder

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Функция GenerateTeTeStinformation (FSO)

Dim TestFolder

Смутный

Если не fso.driveexists (testdrive), то выход функции

Если не fso.folderexists (testfilepath), то выход функционирует

SET TESTFOLDER = FSO.GETFOLDER (TESTFILEPATH)

GenerateTeStinformation = GenerateAlFolderTerinformation (TestFolder)

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'DeleteTestDirectory

'

' Цель:

'

'Очистите тестовый каталог.

'

'Продемонстрировать следующее

'

' - fileystemobject.getFolder

' - fileystemobject.deletefile

' - fileystemobject.deleteFolder

' - folder.delete

' - file.delete

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

SubEledetEteStestEctory (FSO)

Dim TestFolder

DIMBOLDER

DIM -файл

<a name = deletefile>

'Есть два способа удалить файл:

Fso.deletefile (testfilepath & amp; & quot; beatlesopusgarden.txt & quot;)

Set file = fso.getfile (testfilepath & amp; & quot; beatlesbathroomwindow.txt & quot;)

File.delete

'Есть два способа удаления папки:

Fso.deletefolder (testfilepath & amp; & quot; beatles & quot;)

Fso.deletefile (testfilepath & amp; & quot; readme.txt & quot;)

SET TESTFOLDER = FSO.GETFOLDER (TESTFILEPATH)

Testfolder.delete

Конец суб

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'ТЕРИРЕСЯТИКА

'

' Цель:

'

'Создайте два текстовых файла в папке.

'

'

'Продемонстрировать следующее

'

' - fileSystemobject.createTextFile

' - textstream.writeline

' - textstream.write

' - Textstream.WriteBlanklines

' - textstream.close

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Sub CreateryRics (папка)

Dim Textstream

</a> <name = createTextFile>

SET TEXTSTREAM = FOLDE.CREATETEXTFILE (& quot; octopusgarden.txt & quot;)

</a> <name = writetofile>

TextStream.Write (& quot; Octopus 'Garden & quot;) Обратите внимание, что это утверждение не добавляет линейные обертки в файл.

TextStream.WriteLine (& quot; (от Ringo Starr) & quot;)

Textstream.WriteBlanklines (1)

Textstream.WriteLine ("Я бы хотел быть под морем в саду осьминога в тени") ")

TextStream.WriteLine («Он впустил нас, знает, где мы были - в его осьминоге в саду в тени. & Quot;)

Textstream.WriteBlanklines (2)

</a> <a name = close>

Textstream.close

SET TEXTSTREAM = FOLDE.CREATETEXTFILE (& quot; cunidwindow.txt & quot;)

TextStream.WriteLine (& quot; Она вошла через окно ванной (Леннон/Маккартни) & quot;)

TextStream.WriteLine (& quot;)

Textstream.Writeline («Она вошла в окно ванной комнаты, защищенное серебряной ложкой»)

Textstream.Writeline ("но теперь она сосет большой палец и бродит по банкам своей лагуны")

Textstream.WriteBlanklines (2)

Textstream.close

Конец суб

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Getlyrics

'

' Цель:

'

'Показать содержимое файла текста.

'

'

'Продемонстрировать следующее

'

' - fileystemobject.opentextfile

' - fileystemobject.getFile

' - textstream.readall

' - textstream.close

' - file.openastextStream

' - Textstream.atendofstream

' - textstream.readline

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Функция getlyrics (FSO)

Dim Textstream

Смутный

DIM -файл

«Есть несколько способов открыть текстовый файл и несколько способов считывать данные из файла.

'Вот два способа открыть и читать файлы:

SET TextStream = fso.opentextfile (testfilepath & amp; & quot; beatlesopusgarden.txt & quot;, OpenFileForreading)

</a> <am name = readfromfile>

S = TextStream.Readall & amp;

Textstream.close

Set file = fso.getfile (testfilepath & amp; & quot; beatlesbathroomwindow.txt & quot;)

Установите TextStream = file.openastextStream (OpenFileForreading)

Делай, пока не текстовые тексты.

S = s & amp;

Петля

Textstream.close

Getlyrics = s

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'BuildTestDirectory

'

' Цель:

'

«Создайте иерархию каталога, чтобы продемонстрировать файловый подставщик.

'

'Создайте иерархическую структуру в этом порядке:

'

C: тест

C: testreadme.txt

C: TestBeatles

C: testbeatlesopusgarden.txt

C: testbeatlesbathroomwindow.txt

'

'

'Продемонстрировать следующее

'

' - fileystemobject.driveexists

' - fileystemobject.folderexists

' - fileSystemobject.createFolder

' - fileSystemobject.createTextFile

' - folders.add

' - folder.createTextFile

' - textstream.writeline

' - textstream.close

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

</a> <name = fotherinfo>

Function BuildTestDirectory (FSO)

Dim TestFolder

Тусклые подпапки

DIMBOLDER

Dim Textstream

«Исключает (а) диск не существует, или (б) созданный каталог уже существует.

Если не fso.driveexists (testdrive), тогда

BuildTestDirectory = false

Выходная функция

Конец, если

Если fso.folderexists (testfilepath), то

BuildTestDirectory = false

Выходная функция

Конец, если

SET TESTFOLDER = FSO.CreateFolder (TestFilePath)

SET TextStream = fso.createTextFile (testFilePath & amp; & quot; readme.txt & quot;)

TextStream.WriteLine (& QUOT; My Song Trense Collection & quot;)

Textstream.close

SET SUBLENTERS = TESTFOLDER.SUBFOLDERS

SET Sublovder = sublowers.Add ("Beatles")

ТЕРИМЕРИЧЕСКАЯ ПОДБОЛЕКА

BuildTestDirectory = true

Конечная функция

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Основная программа

'

«Во -первых, он создает тестовый каталог, а также некоторые подпапки и файлы.

«Затем он выпускает некоторую информацию о доступных дисковых дисках и справочниках.

«Наконец, очистите справочный справочник и все его содержимое.

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Саб -магистр

Dim FSO

'Установите глобальные переменные.

Tabstop = chr (9)

Newline = chr (10)

</a> <name = createfso>

Установить fso = createObject (& quot; scripting.filesystemobject & quot;)

Если не BuildTestDirectory (FSO), тогда

Печать «Справочник по тестированию уже существует или не может быть создан. Невозможно продолжить».

Выход Sub

Конец, если

Печать GenerationRiveInformation (FSO) и amp;

Print GenerateTeStinformation (FSO) & amp;

Print getlyrics (FSO) & amp;

DeletetEtestErectory (FSO)

Конец суб