请问大家有见过创建快捷方式的批处理不

527907615

请问有没有这样的BAT批处理文件呢，就是可以把某个文件拖动到这个BAT批处理文件放开时自动将这个文件的快捷方式发送到桌面或特定的路径下面

随便注册

批处理不懂，AHK倒是简单，你要接受exe的话，试试能不能用。

落落的瓶子

参考这里吧
http://www.bathome.net/thread-15643-1-1.html

527907615

随便注册 发表于 2017-11-28 03:47
批处理不懂，AHK倒是简单，你要接受exe的话，试试能不能用。

感谢大大，这是我想要的效果

527907615

落落的瓶子 发表于 2017-11-28 10:09
参考这里吧
http://www.bathome.net/thread-15643-1-1.html

这个对小白来说难度不小呢

随便注册

527907615 发表于 2017-11-28 17:23
感谢大大，这是我想要的效果

放开时按住小键盘123使用不同路径。判断按键是否按住不太靠谱，用不着就固定一个路径吧。


https://autohotkey.com/download/ahk.zip 用Ahk2Exe.exe就行了。

527907615

随便注册 发表于 2017-11-28 18:18
放开时按住小键盘123使用不同路径。判断按键是否按住不太靠谱，用不着就固定一个路径吧。

还有这种操作，其实用一个固定路径也是可以的了

随便注册

527907615 发表于 2017-11-28 19:02
还有这种操作，其实用一个固定路径也是可以的了

我原来以为AHK就是个SendKey ，后来才知道还能处理字符串、甚至出界面呢

创建快捷方式那些快捷键、大小、参数什么的也可以设置，我都没写，你自己看帮助吧

os52

考虑符号链接吗？

MKLINK [[/D] | [/H] | [/J]] Link Target

        /D      创建目录符号链接。默认为文件
                符号链接。
        /H      创建硬链接，而不是符号链接。
        /J      创建目录联接。
        Link    指定新的符号链接名称。
        Target  指定新链接引用的路径
                (相对或绝对)。

kfk

注意：此版不完美。
新版在 29楼：
https://bbs.kafan.cn/forum.php?m ... 06&pid=41245281






既然还要拖放到文件上，那用基本操作不就可以了吗：

发送到桌面：
[发送到]菜单里有[桌面快捷方式]啊。

发送到特定路径：
把文件 Alt+拖放 到目标路径(或目标的快捷方式上)，就OK了。（其实只需在放开前按住Alt键即可，注意看指针变化。）
Alt+拖放 人类普遍要用两只爪子。想单爪就用 右键拖放，放开后，会弹出菜单，选择“在当前位置创建快捷方式”就是了。
（发送到桌面 当然也可以用这法。）

批量建：
那就先 多选，再 发送/拖放。

------------------------------
而编程，不就是为了免拖放吗。
当然你如果拖放到程序上也可以，但这跟上面的基本操作也没多大差别了。

这里有个vbs（支持批量发送/拖放）：
http://www.aichengxu.com/cyvyan/2766691.htm

我把它丰富完善了一下：（请先读完上文）
▲开头加了询问，便于临时改动路径，也为防止误执行。你若只用默认路径，运行后直接Enter即可。
▲目标路径若不存在，则自动新建。并加了路径错误处理，避免出错中断。
▲若存在同名快捷方式，则自动重命名（尾加特殊序号 {n 以区别于系统的重命名形式）。

如果哪儿不妥，可以再改。
妥善保存vbs，只需把它的快捷方式放到SendTo里就行了，这样不怕丢。

刚才代码没贴成，再来：

1. '==============================
   
2. '现名：CreateShortcut(s)To.vbs
   
3. 'kfk 2017-11-29 @bbs.kafan.cn
   
4. '==============================
   
5. '原名：CreateMyShortCut.vbs
   
6. 'Ivan Chen, Zsu '2003-5-12
   
7. '==============================
   
8. 
   
9. strDestination = "E:\默认目标路径"
   
10. 
    
11. Set fso = CreateObject("Scripting.FileSystemObject")
    
12. sPrompt = String(5, vbCr) & "创建快捷方式到："
    
13. Do
    
14.   strDestination = InputBox(sErr & sPrompt, WScript.ScriptName, strDestination)
    
15.   If strDestination = "" Then WScript.Quit
    
16. 
    
17.   On Error Resume Next
    
18.     fso.CreateFolder(strDestination)
    
19.     If Err><0 Then sErr = "路径不对！"
    
20.   On Error GoTo 0
    
21. Loop Until fso.FolderExists(strDestination)
    
22. 
    
23. Set WshShell = WScript.CreateObject("WScript.Shell")
    
24. 
    
25. Set objArgs = WScript.Arguments
    
26. For i = 0 To objArgs.Count - 1   'Loop through all arguments
    
27.   GetAName = strDestination & "\" & fso.GetFileName(objArgs(i))
    
28.   j=1
    
29.   Do
    
30.     If j>1 Then sN = "  {" & j
    
31.     strShortCut = GetAName & sN & ".lnk"
    
32.     j=j+1
    
33.   Loop While fso.FileExists(strShortCut)
    
34.   sN=""
    
35. 
    
36.   Set oShellLink = WshShell.CreateShortcut(strShortCut)
    
37.   oShellLink.TargetPath = objArgs(i)
    
38.   oShellLink.WindowStyle = 1
    
39.   'oShellLink.Description = "Created By Ivan Chen"
    
40.   oShellLink.WorkingDirectory = Left(objArgs(i), InStrRev(objArgs(i), "\"))
    
41.   oShellLink.Save
    
42. Next
    

复制代码

现在代码居然不能高亮了……难看！