Как добавить команду в файл VBS?

Question

У меня есть следующий VBScript, к которому я пытаюсь добавить, но мне нужна помощь, как это сделать.

В настоящее время у меня есть скрипт ниже, который запрашивает имя файла, который я хочувызывается, а затем создает папку и перемещает ее, хорошо.

То, что я пытаюсь добавить, это после того, как папка создана, мне нужно командное окно с параметром YES / NO, и если я нажимаю YES, янужно, чтобы файл был перемещен в C: \ DOCUMENTS \ A, и если НЕТ, мне нужно, он был перемещен в C: \ DOCUMENTS \ B.

После того, как я нажал ДА или НЕТ, и он переместил папку, которую мне нужно открытьПапка A или B для просмотра.

Есть идеи?

Option Explicit

Const strDLFolder = "C:\Downloads"
Dim objFSO, objWShell, objDLFolder, strNewFolder, objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWShell = CreateObject("WScript.Shell")


If Not objFSO.FolderExists(strDLFolder) Then objFSO.CreateFolder(strDLFolder)
objWShell.CurrentDirectory = strDLFolder
Set objDLFolder = objFSO.GetFolder(strDLFolder)
If objDLFolder.Files.Count = 0 Then WScript.Quit

Do
    Err.Clear
    strNewFolder = InputBox("Folder Name", vbLf & "Enter the name of the folder to be created:")
    If strNewFolder = False Then WScript.Quit
    On Error Resume Next
    objFSO.CreateFolder strNewFolder
Loop While Err.Number <> 0 Or Not objFSO.FolderExists(strNewFolder)

On Error Goto 0
For Each objFile In objDLFolder.Files
    objFSO.MoveFile objFile.Name, strNewFolder & "\"
Next

objWShell.Popup "All files moved.", 0, "Done", vbInformation Or vbSystemModal Or &h00040000&