我是这样实现的- @echo off
- reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t reg_dword /d 00000000 /f
- del tmp.vbs /s /q
- cls
- color 0a
- title 建立快捷方式
- :enterFileName
- cls
- echo 注意:请在路径的两端加上单引号即 "
- set fileName="%SystemRoot%\system32\calc.exe"
- if /i "%fileName%"=="" goto :enterFileName
- if not exist %filename% cls & echo 你输入的目录或者文件名不存在,请重新输入 & pause & goto :enterFileName
- cls
- echo 例如 c:\test\我的快捷方式.lnk
- echo 注意:
- echo 最后面的 .lnk 不能省略
- echo 这里的路径也要在两端加上单引号.
- echo 并且在路径中不能包括系统变量。
- echo.
- set shortCutPath="C:\Documents and Settings\personal\桌面\计算器.lnk"
- echo Dim WshShell,Shortcut>>tmp.vbs
- echo Dim path,fso>>tmp.vbs
- echo path=%fileName%>>tmp.vbs
- echo Set fso=CreateObject("Scripting.FileSystemObject")>>tmp.vbs
- echo Set WshShell=WScript.CreateObject("WScript.Shell")>>tmp.vbs
- echo Set Shortcut=WshShell.CreateShortCut(%shortCutPath%)>>tmp.vbs
- echo Shortcut.TargetPath=path>>tmp.vbs
- echo Shortcut.Save>>tmp.vbs
- "%SystemRoot%\System32\WScript.exe" tmp.vbs
- del tmp.vbs /s /q
- cls
- if exist %shortCutPath% echo 快捷方式创建完毕... & exit>nul
- if not exist %shortCutPath% echo 快捷方式创建失败,请重新操作... & exit>nul
复制代码
|