vbscript - 如何添加到 VBS 文件命令

Question

我有以下要添加的 VBScript，但我需要有关如何执行此操作的帮助。

目前我有下面的脚本，它询问我想要调用它的文件名，然后创建一个文件夹并移动它。

我要添加的是在创建文件夹后我需要一个带有是/否选项的命令框，如果我单击是，我需要将文件移动到 C:\DOCUMENTS\A，如果不是，我需要将它移动到 C :\文档\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&

标签： vbscript