WIN7系统运行代码提示错误

adfs945

大家好：

经过近期的学习，写了一些bat程序：循环自动将指定文件夹内文件移动到其他位置。

问题点：在WIN10系统运行正常，在WIN7系统运行会导致系统卡死
最终在各位的指导下排查出异常代码：隐藏运行窗口
个人理解：难道是win7系统不能识别或者不支持？
想问下大家win7情况下想隐藏运行窗口该如何实现？
提示错误代码：

1. start mshta vbscript:createobject("wscript.shell").run("""%~0"" hide",0)(window.close)&&exit

复制代码

错误排查方法写真(因论坛图片上传失败，所以使用图床)：
在com界面一句一句运行，确认哪一步出现异常。
1.
2.
3.

完整代码：

1. if "%1"=="hide" goto CmdBegin
   
2. start mshta vbscript:createobject("wscript.shell").run("""%~0"" hide",0)(window.close)&&exit
   
3. :CmdBegin
   
4. 
   
5. @echo off
   
6. 
   
7. set INTERVAL=10
   
8. 
   
9. :Again
   
10. 
    
11. rem 批处理保存为ansi编码格式
    
12. set "folder1=C:\Users\dmns25163\Desktop\AAA"
    
13. set "folder2=S:\DMNSPZJC"
    
14. for %%a in ("%folder1%\*.*") do (
    
15.         if not exist "%folder2%\%%~nxa" (
    
16.                 move "%%a" "%folder2%"
    
17.         ) else (
    
18.                 set n=1
    
19.                 call :1 "%%a"
    
20.         )
    
21. )
    
22. timeout %INTERVAL%
    
23. goto Again
    
24. 
    
25. pause
    
26. exit
    
27. 
    
28.         :1
    
29.         set /a n+=1
    
30.         if not exist "%folder2%\%~n1(%n%)%~x1" (
    
31.                 move "%~1" "%folder2%\%~n1(%n%)%~x1"
    
32.                 exit /b
    
33.         ) else (
    
34.                 goto :1
    
35.         )

复制代码

Batcher

回复 1# adfs945

1. if "%1"=="hide" goto :ExecBat
   
2. start mshta vbscript:createobject("wscript.shell").run("""%~f0"" hide",0)(window.close) && exit /b
   
3. 
   
4. :ExecBat
   
5. @echo off
   
6. start notepad
   
7. ping -n 5 127.0.0.1 >nul
   

复制代码

我在Win7里面测试没有问题。
你改成%~f0再试试，如果还是不行，检查一下批处理所在完整路径是否有特殊字符。

Five66

路径有英文逗号？

buyiyang

你在命令行界面执行

1. start mshta vbscript:createobject("wscript.shell").run("""%~0"" hide",0)(window.close)&&exit

复制代码

提示找不到文件是因为批处理外%~0无法被扩展，实际这行代码应该没有问题。

Five66

啊，原来你是直接在cmd里输入的，就如楼上所说的那样

jszw666

都是高手啊，向大咖学习