[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[系统相关] WIN7系统运行代码提示错误

大家好:

经过近期的学习,写了一些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. @echo off
  5. set INTERVAL=10
  6. :Again
  7. rem 批处理保存为ansi编码格式
  8. set "folder1=C:\Users\dmns25163\Desktop\AAA"
  9. set "folder2=S:\DMNSPZJC"
  10. for %%a in ("%folder1%\*.*") do (
  11. if not exist "%folder2%\%%~nxa" (
  12. move "%%a" "%folder2%"
  13. ) else (
  14. set n=1
  15. call :1 "%%a"
  16. )
  17. )
  18. timeout %INTERVAL%
  19. goto Again
  20. pause
  21. exit
  22. :1
  23. set /a n+=1
  24. if not exist "%folder2%\%~n1(%n%)%~x1" (
  25. move "%~1" "%folder2%\%~n1(%n%)%~x1"
  26. exit /b
  27. ) else (
  28. goto :1
  29. )
复制代码

返回列表