Skip to content

Instantly share code, notes, and snippets.

@simonxiao86

simonxiao86/vbs

Created October 14, 2018 08:49
Show Gist options
  • Save simonxiao86/cd0ea2952924a2bfb9c0bc8c621f50f3 to your computer and use it in GitHub Desktop.
Save simonxiao86/cd0ea2952924a2bfb9c0bc8c621f50f3 to your computer and use it in GitHub Desktop.
Download ZIP
sendto定制快速生成快捷方式
Raw
vbs
Dim name,msg
msg="请输入文件名称："
name=Inputbox(msg)
Set Arg = WScript.Arguments
set WshShell=WScript.CreateObject("WScript.Shell")
strDirectory="d:\qr"
set oShellLink=WshShell.CreateShortcut(strDirectory & "\" & name & ".lnk")
oShellLink.TargetPath=Arg(0)
oShellLink.IconLocation=Arg(0)
oShellLink.WorkingDirectory=strDirectory
oShellLink.Save
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment