VBscrip创建和删除桌面快捷方式

VBscrip创建和删除桌面快捷方式

1.创建桌面快捷方式：

set WshShell = WScript.CreateObject("WScript.Shell") 

strDesktop = WshShell.SpecialFolders("Desktop")

set oShellLink = WshShell.CreateShortcut(strDesktop & "\2.lnk") 

oShellLink.TargetPath = \\192.168.1.51\加域脚本\2.vbs '快捷方式里的“目标”

oShellLink.WorkingDirectory = "\\192.168.1.51\加域脚本" '快捷方式里的“起始位置”

oShellLink.Save

2.删除桌面快捷方式

Dim fso,file
name1="2.lnk"
Set WshShell = Wscript.CreateObject("Wscript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")

Set fso=CreateObject("Scripting.FileSystemObject")

Set fld=fso.GetFolder(strDesktop)
For Each file In fld.Files
name=fso.GetFileName(file)
If name=name1 Then
file.Delete
End If
Next