Vbscript 如何添加到“到VBS文件”命令
我有下面的VBScript，我正试图添加到其中，但我需要如何做的帮助 目前，我有下面的脚本，它要求调用我希望调用的文件名，然后创建一个文件夹并移动它，确定 我试图添加的是，在创建文件夹后，我需要一个带有“是/否”选项的命令框，如果单击“是”，我需要将文件移动到C:\DOCUMENTS\a，如果单击“否”，我需要将其移动到C:\DOCUMENTS\B 单击“是”或“否”并移动文件夹后，我需要打开文件夹A或B进行查看 有什么想法吗Vbscript 如何添加到“到VBS文件”命令,vbscript,Vbscript,我有下面的VBScript，我正试图添加到其中，但我需要如何做的帮助 目前，我有下面的脚本，它要求调用我希望调用的文件名，然后创建一个文件夹并移动它，确定 我试图添加的是，在创建文件夹后，我需要一个带有“是/否”选项的命令框，如果单击“是”，我需要将文件移动到C:\DOCUMENTS\a，如果单击“否”，我需要将其移动到C:\DOCUMENTS\B 单击“是”或“否”并移动文件夹后，我需要打开文件夹A或B进行查看 有什么想法吗 Option Explicit Const strDLFolder
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&
选项显式
Const strDLFolder=“C:\Downloads”
Dim objFSO、objWShell、objDLFolder、strNewFolder、OBJFShell文件
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objWShell=CreateObject（“WScript.Shell”）
如果objFSO.FolderExists（strDLFolder）不是objFSO.CreateFolder（strDLFolder）
objWShell.CurrentDirectory=strDLFolder
设置objDLFolder=objFSO.GetFolder（strDLFolder）
如果objDLFolder.Files.Count=0，则WScript.Quit
做
呃，明白了
strNewFolder=InputBox（“文件夹名称”，vbLf&“输入要创建的文件夹的名称：”）
如果strNewFolder=False，则WScript.Quit
出错时继续下一步
objFSO.CreateFolder strNewFolder
错误号为0或不为objFSO.FolderExists（strNewFolder）时循环
错误转到0
对于objDLFolder.Files中的每个objFile
objFSO.MoveFile objFile.Name，strNewFolder&“\”
下一个
objWShell.Popup“所有文件已移动”，0，“完成”，vbInformation或vbSystemModal或&h00040000&