VBS怎样修改程序的起始位置？

anchor52052

经常修改程序的起始位置：在桌面程序图标上右键→属性→起始位置→输入行的路径→应用。
一直想找个简单的办法。网上找了些资料，网友“死性不改'”这个应该是最有用的：
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
批量修改快捷方式的“目标”和“起始位置”
转载请注明本文出自：死性不改's Blog~http://www.clxp.net.cn/
站点链接：
保存为VBS，和快捷方式同一目录运行！

1. Option Explicit
   
2. Dim oldpath,newpath
   
3. 
   
4. ''''''''''''''''说明'''''''''''''''''
   
5. '作用：批量修改快捷方式的“目标”和“起始位置”
   
6. '使用方法：和需要修改的快捷方式放在同一个文件夹执行
   
7. '''''''''''''''说明完'''''''''''''''''
   
8. 
   
9. oldpath = "E:\聊天软件"           '设置原路径中将被替换的内容
   
10. newpath = "D:\棋牌聊天"   '设置新路径中要使用的内容
    
11. 
    
12. Dim Wsh,fso
    
13. Set Wsh = WScript.CreateObject("WScript.Shell")
    
14. Set fso = CreateObject("Scripting.FileSystemObject")
    
15. Dim ji_1,ji_2,Folder
    
16. ji_1 = 0
    
17. ji_2 = 0
    
18. Folder = Wsh.CurrentDirectory
    
19. if Ask("将要修改"&chr(34)& Folder &chr(34)&"里的所有快捷方，是否继续") then
    
20.    Dim f,fc,f1,ext
    
21.    Set f = fso.GetFolder(Folder)
    
22.    Set fc = f.Files
    
23.    For Each f1 in fc
    
24.        ext = LCase(fso.GetExtensionName(f1))
    
25.        if ext = "lnk" then
    
26.          ji_1 = ji_1 + 1
    
27.          call Doit(f1)
    
28.        end if
    
29.    Next
    
30. end if
    
31. 
    
32. Set WSH = Nothing
    
33. msgbox "找到 "&ji_1&" 个快捷方式"&vbCrLf&"修改 "&ji_2&" 个快捷方式",64,"执行完毕!"
    
34. WScript.quit
    
35. 
    
36. Sub Doit(strlnk)
    
37. Dim oShlnk
    
38.    Set oShlnk = Wsh.CreateShortcut(strlnk)
    
39. If Instr(oShLnk.TargetPath,oldpath) > 0 Then
    
40.        oShLnk.TargetPath = Replace(oShLnk.TargetPath,oldpath,newpath)
    
41.        oShLnk.WorkingDirectory = Replace(oShLnk.WorkingDirectory,oldpath,newpath)
    
42.        oShLnk.Save
    
43.        ji_2 = ji_2 + 1
    
44. End If
    
45.    Set oShLnk=NoThing
    
46. End Sub
    
47. 
    
48. Function Ask(strAction)
    
49.    Dim intButton
    
50.    intButton = MsgBox(strAction,vbQuestion + vbYesNo,"询问")
    
51.    Ask = intButton = vbYes
    
52. End Function

复制代码

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

比如我要经常改变起始位置的程序是Foxmail，我的想法是，能不能有一个VBS程序，将该程序放置在磁盘的某个路径下，运行程序后，程序自动获取VBS程序自身所在路径，并将该路径设置为桌面上Foxmail的起始位置？
由于基本不用VBS，自己暂时无法完成，恳请各位大侠帮忙！先谢谢了！

haokeyy

1. Dim ws, dp, sc
   
2. 
   
3. Set ws = CreateObject("wscript.shell")
   
4. 
   
5. dp = ws.SpecialFolders("Desktop")
   
6. 
   
7. Set sc = ws.CreateShortcut(dp & "\Foxmail.lnk")
   
8. 
   
9. sc.WorkingDirectory = AppPath
   
10. 
    
11. sc.Save
    
12. 
    
13. Function AppPath
    
14.         AppPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, ""))
    
15. End Function

复制代码

获取脚本所在路径，最好不要用CurrentDirectory，有时不好用。最好从脚本的完整路径ScriptFullName中提取出路径。

将上面的脚本保存成VBS文件，放在任意目录，运行后就会自动更换快捷方式的起始位置了。

broly

1. Dim wsh,objLnk,strLnkPath,strLnkName
   
2. 
   
3. '下面是快捷方式的名字（含后缀lnk）
   
4. strLnkName = "Foxmail.lnk"
   
5. 
   
6. Set wsh = CreateObject("WScript.Shell")
   
7. strLnkPath = wsh.SpecialFolders("Desktop") & "" & strLnkName
   
8. 
   
9. Set objLnk = wsh.CreateShortcut(strLnkPath)
   
10. objLnk.WorkingDirectory = wsh.CurrentDirectory
    
11. objLnk.Save
    
12. 
    
13. MsgBox "Succeed."
    
14. 
    
15. Set wsh = Nothing
    
16. Set objLnk = Nothing

复制代码