用批處理來建立快捷方式
阿新 • • 發佈：2019-02-20
@echo off
del tmp.vbs /s /q
cls
color 0a
title 憶林子--建立快捷方式
:enterFileName
cls
echo 注意：請在路徑的兩端加上單引號即 "
set /p fileName=[請輸入要建立方式的檔案或者目錄的全路徑]
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 /p shortCutPath=[請輸入將建立方式儲存到的路徑]
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 快捷方式建立完畢... & pause>nul
if not exist %shortCutPath% echo 快捷方式建立失敗,請重新操作... & pause>nul
del tmp.vbs /s /q
cls
color 0a
title 憶林子--建立快捷方式
:enterFileName
cls
echo 注意：請在路徑的兩端加上單引號即 "
set /p fileName=[請輸入要建立方式的檔案或者目錄的全路徑]
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 /p shortCutPath=[請輸入將建立方式儲存到的路徑]
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 快捷方式建立完畢... & pause>nul
if not exist %shortCutPath% echo 快捷方式建立失敗,請重新操作... & pause>nul