如何使用vbscript在usb驱动器的当前目录上创建快捷方式

Question

我是编码新手，我今天的目标是在usb拇指/闪存驱动器的当前目录上创建一个快捷方式。我在脚本上取得了一些进展，但是我在设置快捷方式的目标路径时遇到了问题，因为当usb闪存驱动器插入到计算机时，它们会自动分配一个驱动器号，所以快捷方式的目标路径每次都不同。我不知道该怎么解决这个问题。如果你们能帮我解决这个问题，我将不胜感激，谢谢!

    Set oWS = WScript.CreateObject("WScript.Shell")
    sLinkFile = "A.lnk"
    Set oLink = oWS.CreateShortcut(sLinkFile)
      oLink.TargetPath = "(What the usb drive letter should be):A.vbs" 
      '  oLink.Arguments = ""
      '  oLink.Description = "MyProgram"   
      '  oLink.IconLocation = "C:xxxnotporno"
      '  oLink.WindowStyle = "1"
    oLink.Save

Answer 1

尝试使用相对路径。——forsajt

Thanks forsajt !这个问题你真的帮了我大忙，下面是我的部分解决方案:

strLinkFile = "A.lnk" 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set oWS = WScript.CreateObject("WScript.Shell") 
Set oLink = oWS.CreateShortcut(strLinkFile) 
strPath = oWS.CurrentDirectory 
If fso.FileExists (strPath & "Target.file") Then 
oLink.TargetPath = strPath & "Target.file" 
oLink.Save 
End if