- @echo off
- 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 (
- echo Your input is:%%A
- )
- pause
- exit /b
复制代码
|