求助，自定义批处理备份的文件夹名

18366102289

描述：
    我现在有一个.bat的脚本，运行后可以自动把指定的几个文件夹打包复制到一个文件夹进行备份，并将该文件夹命名为当前的时间

需求：
    由于打包后的文件夹的名字，是自动获取系统时间而来，我想实现运行脚本后，弹出个对话框，可任意输入文字，比如这次备份的理由，然后直接作为这次打包文件夹的名字


谢谢！

flashercs

1. @echo off
   
2. for /f "delims=" %%A in ('mshta vbscript:Execute("On Error Resume Next:Dim str,fso:str=InputBox(""请输入备份理由:"",""重命名"",""理由...""):Set fso=CreateObject(""Scripting.FileSystemObject""):fso.GetStandardStream(1).Write(str):Set fso=Nothing:close"^)') do (
   
3.     echo Your input is:%%A
   
4. )
   
5. pause
   
6. exit /b

复制代码

18366102289

谢谢大佬，加入我原有的代码试了可以用，但是还差一步，我对话框中填的是存到A中了吗？
我原有代码中，是通过set copyName=   语句对打包文件名重命名的，我怎么给它调用过来？我一直调用失败，文件夹名要么是A要么是%A，总是不对