Question

【高分悬赏】帮忙修改一下这个VBS文件

源文件如下
=====================================================
Option Explicit

Dim objShell, objFSO
Dim strBaseDir, strDirsLine
'创建对象。
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'检查参数的总数。
If WScript.Arguments.Count <> 1 Then
WScript.Quit()
End If
'获取起始目录的路径。
strBaseDir = Left(WScript.Arguments(0), InStrRev(WScript.Arguments(0), "\"))
'输入所有要新建的目录名。
strDirsLine = InputBox(" 请输入要创建的文件夹名，每个不同的文件夹名之间用空格隔开。", "创建多个文件夹", "请输入要创建的文件夹名")
If strDirsLine = "" Then
WScript.Quit
End If
'根据用户输入的目录名称，创建所有的目录。
DoCreate(strDirsLine)

'获取每个文件夹的名称，然后分别创建它们。
Sub DoCreate(strNewDirsLine)
Dim strDirName
Dim nFrom, nTo
'初始化数据。
nFrom = 1
nTo = 1
'依次创建每个目录。
while (nTo <> 0)
nTo = Instr(nFrom, strNewDirsLine, " ")
if 0 = nTo Then
strDirName = Mid(strNewDirsLine, nFrom)
else
strDirName = Mid(strNewDirsLine, nFrom, nTo - nFrom)
End If
'创建目录。
CreateDirectories(strBaseDir & strDirName)
'更新nFrom的位置。
nFrom = nTo + 1
Wend
End Sub

'创建多级目录。strDirPath为目录的全路径。
Sub CreateDirectories(strDirPath)
Dim strDir
Dim nFrom, nTo
'初始化数据。
nFrom = 1
nTo = 1
'依次创建每级目录。
while (nTo <> 0)
nTo = Instr(nFrom, strDirPath, "\")
if 0 = nTo Then
strDir = strDirPath
else
strDir = Left(strDirPath, nTo - 1)
End If
'创建该级目录。
If Not objFSO.FolderExists(strDir) Then
objFSO.CreateFolder(strDir)
End If
'更新nFrom的位置。
nFrom = nTo + 1
Wend
End Sub
================================================================
这是个用来新建多个文件夹的VBS脚本，但是有一些缺陷，希望高手帮忙修改完善一下。
具体要求：
1、当文件夹名里面出现/ \ * : ? " < > | 时弹出提示：使用含有/ \ * : ? " < > |的文件夹名可能导致您不能正常使用该文件夹，是否继续创建？
用户选择“继续”则继续创建，选择“重新输入”则回到最原始界面等待用户重新输入。

2、适当增强脚本强壮性。这个脚本在出错退出时没有任何“官方的”提示，希望帮忙增强整个脚本的强壮性，在遇到错误退出时弹出提示：“程序遇到错误需要退出…………”

3、刚打开脚本时输入的部分写着“请输入要创建的文件夹名”。如果直接点确定就会创建一个叫“请输入要创建的文件夹名”的文件夹，希望能改变一下，如果用户不更改这个内容而直接点确定，就不新建文件夹，而是保持原有状态等待用户输入。
还有如果用户输入的文件夹名为空，这个脚本就会自动退出，希望改成弹出提示：您没有输入文件夹名，请重新输入

先想到这些，希望高手帮忙。
不想浪费分数，先不悬赏，如果被采纳一定另外追加悬赏高分！
忘了说，修改这个文件是为了学习，所以还请高手把注释也写出来，尽量详细吧。
兄弟们啊，分不是问题，只要能解决一定追加悬赏啊。上次我问的二百分的问题没了，白白损失二百。这次我可不想了。

Answer 1

傻子才上你的当！
有诚意就直接把分放出来，哄小孩子啊？