批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[转]批处理创建快捷方式

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. if exist tmp.vbs del tmp.vbs /q
  4. cls
  5. color 0a
  6. title 批处理创建快捷方式
  7. :enterFileName
  8. cls
  9. echo.
  10. set /p fileName=      [请输入文件或者目录的全路径]:
  11. if /i "!fileName!"=="" goto :enterFileName
  12. if not exist "%filename%" cls & echo 你输入的目录或者文件名不存在,请重新输入 & pause & goto :enterFileName
  13. echo.
  14. for %%i in ("!fileName!") do set name=%%~ni
  15. set /p shortCutPath=      [请输入将创建方式保存到的路径]:
  16. set shortCutPath="!shortCutPath!\!name!.lnk"
  17. echo Dim WshShell,Shortcut>>tmp.vbs
  18. echo Dim path,fso>>tmp.vbs
  19. echo path="%fileName%">>tmp.vbs
  20. echo Set fso=CreateObject("Scripting.FileSystemObject")>>tmp.vbs
  21. echo Set WshShell=WScript.CreateObject("WScript.Shell")>>tmp.vbs
  22. echo Set Shortcut=WshShell.CreateShortCut(%shortCutPath%)>>tmp.vbs
  23. echo Shortcut.TargetPath=path>>tmp.vbs
  24. echo Shortcut.Save>>tmp.vbs
  25. "%SystemRoot%\System32\WScript.exe" tmp.vbs
  26. ::del tmp.vbs /s /q
  27. cls
  28. if exist %shortCutPath% echo 快捷方式创建完毕... & pause>nul
  29. if not exist %shortCutPath% echo 快捷方式创建失败,请重新操作... & pause>nul
复制代码

返回列表