wh1234567

set SrcFile=C:\test\a.txt

set LnkFile=D:\test\b.txt
分别是什么路径？
http://www.bathome.net/thread-15472-1-1.html
这个该如何弄？包括自动换图标，自动修改后无需小箭头的那种

cjiabing

回复 16# wh1234567


    一直对mshta的稳定性存在疑虑，好比这个快捷方式，明明以前还用着，今天用了居然不起作用了。
    用心去找了下原因，原来是路径有问题，修改了下路径就可以了！~

 
@echo off
::演示将本批处理程序的快捷方式创建到桌面。对路径名比较敏感，请使用完整的路径名。
set SrcFile=%~0
set LnkFile=%USERPROFILE%\桌面\%~n0
call :CreateShort "%SrcFile%" "%LnkFile%"
goto :eof
::SrcFile                目标文件路径
::LnkFile                快捷方式路径（需要重新指定快捷方式的名称）。
::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置
:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码

find

回复 16# wh1234567


“小箭头”是由一个注册表键值控制的

狱渊

直接用右键····

hacker85

留名，后期好好研究。

Linuxer

回复 17# cjiabing


    好帖~~我发现在win7系统里，桌面的路径会自动变成desktop。

set LnkFile=%USERPROFILE%\Desktop\%~n0
复制代码

改成这样代码就顺利执行了。
另外，看前两行代码都有%~0还以为这俩是同一个，，结果测试后才发现，这两个不是一个概念。
第一个%~0是需要创建快捷方式的文件的完整路径，第二个%~0是在桌面想要创建的快捷方式的名称。
通过这段批处理还学到了其他几个知识点，比如mshta及组合批参数的用法，，，感谢~~

cjiabing

回复 21# Linuxer


    欢迎交流！~
%~0    ，指显示批处理文件自身的完整路径名（路径名和文件名和后缀名）。
%~n0   ，指显示批处理文件自身的文件名。
具体可以参考  for/?  最后几段。

Linuxer

回复 22# cjiabing


    额。不好意思，，看错了。。竟然都看成是%~0了。。。没注意第二个是%~n0   

aries215

回复 1# cjiabing
我试了 echo 方式，图标不能正确显示！

@echo off
SetLocal EnableDelayedExpansion
for %%i in (MSACCESS Excel WINWORD POWERPNT) do (
echo [InternetShortcut]>"%USERPROFILE%\Desktop\%%i.url"
echo URL="%~dp0Office16\%%i.exe">>"%USERPROFILE%\Desktop\%%i.url"
echo IconIndex=0>>"%USERPROFILE%\Desktop\%%i.url">nul
echo IconFile="%~dp0Office16\%%i.exe">>"%USERPROFILE%\Desktop\%%i.url"
)
pause
复制代码

统一是地球图标，手工指定才能正确显示。用HEX编辑器查看，就差IconIndex不能正确写入！

Batcher

回复 24# aries215


    把>nul删掉试试

aries215

回复 25# Batcher
结果一样！
开始没有>nul的，提示索引为空才加上的。

Batcher

回复 26# aries215


    >>"%USERPROFILE%\Desktop\%%i.url" echo IconIndex=0

aries215

回复 25# Batcher
用这个命令简单有效：

MKLINK Link Target
复制代码

aries215

回复 27# Batcher
也试了，一样是统一地球图标。
你试过行吗？

Batcher

回复 29# aries215


    IconIndex=0这一行还是不能写入url文件吗？