Помогите дописать скрипт!!!
 

Доброго, всем. времени.Начну с того, что в VBS я, как топор в воде...,
ломал голову пару дней, и так ни до чего не додумался:

Dim fso, Text, FolderName, FileName
Set fso = CreateObject("Scripting.FileSystemObject")
FolderName = InputBox("Имя папки?")
Set Fldr = fso.CreateFolder ("" & FolderName)

Вопрос такой:
При пустом поле для ввода текста нажатие кнопки ОК и кнопки Отмена,(а так же при простом закрытии скрипта),
возникает ошибка:

***********************************************************
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Users\OSA\Desktop\Файл сценария VBScript (3).vbs
Строка: 4
Символ: 1
Ошибка: Недопустимый вызов или аргумент процедуры
Код: 800A0005
Источник: Ошибка выполнения Microsoft VBScript

*************************************************************
Помогите, пожалуйста, дописать скрипт!

Век живи, век дурак...

On Error Resume Next - в начало скрипта,и дело решено.

Рву,на себе,остатки волос.