【已解决】困扰许久的批处理参数传递的问题

y6383289

1. @ECHO OFF
   
2. setlocal enabledelayedexpansion
   
3. call :Folder_Input "Folder" "输入目录"&& echo 输入目录=%输入目录%
   
4. echo Folder=%Folder%
   
5. echo 调试结束&&pause&&exit
   
6. 
   
7. 
   
8. goto :eof
   
9. 
   
10. ::**************************************************************
    
11. ::       输入目录名称
    
12. ::**************************************************************
    
13. :Folder_Input
    
14. Title ★★★★★ %~n0 %~2 ★★★★★
    
15. for /f "delims=" %%a in ('mshta "about:<script>var Folder = new ActiveXObject("Shell.Application").BrowseForFolder(0, "选择文件夹", 64, 17);if (Folder != null) {Folder = Folder.items();Folder = Folder.item();Folder = Folder.Path;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(Folder);}close();</script>"') do (
    
16. set Folder_temp="%%a"
    
17. )
    
18. set %~1=%Folder_temp%
    
19. echo Folder_temp=%Folder_temp%
    
20. if "%2" NEQ "" set %~2=No
    
21. if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes
    
22. Title ★★★★★ %~n0  ★★★★★
    
23. goto :eof

复制代码

运行结果
屏蔽setlocal enabledelayedexpansion
输入目录=!输入目录!
Folder="C:\Intel"
调试结束
请按任意键继续. . .

setlocal enabledelayedexpansion
输入目录=Yes
Folder=
调试结束
请按任意键继续. . .

buyiyang

这段代码有两个问题，第三行应该分开为两条语句

1. call :Folder_Input "Folder" "输入目录"
   
2. echo 输入目录=%输入目录%

复制代码

还有那段js中if (Folder != null)的感叹号应该要转义

1. if (Folder ^!= null)

复制代码

y6383289

已验证可行。谢谢了。