set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject") WshShell.run "cmd /c copy TsQueryFree.EXE D:\TeenySoft\åè¶ç²¾ç®T3 /y"
WshShell.run "cmd /c del D:\TeenySoft\åè¶ç²¾ç®T3\TSProfessional.EXE "strDesktop = WshShell.SpecialFolders("Desktop") 'è·å¾æ¡é¢ç®å½
strDesktopAll = "C:\Documents and Settings\All Users\æ¡é¢"strLinkFile = strDesktop & "\ç²¾ç®T3·æè°ç.lnk"
strLinkFileAll = strDesktopAll & "\ç²¾ç®T3·æè°ç.lnk"if objFSO.FileExists(strLinkFile) then
strCmd = "cmd /c del """ & strLinkFile &""""
MsgBox (strCmd)
WshShell.run (strCmd)
end ifif objFSO.FileExists(strLinkFileAll) then
strCmd = "cmd /c del """ & strLinkFileAll &""""
MsgBox (strCmd)
WshShell.run (strCmd)
end if set oShellLink = WshShell.CreateShortcut(strDesktop & "\ç²¾ç®T3å
è´¹æ¥è¯¢ç.lnk") 'å¿«æ·æ¹å¼åæ¾ç®å½åå称
oShellLink.TargetPath = "D:\TeenySoft\åè¶ç²¾ç®T3\TsQueryFree.EXE" 'æåçå¯æ§è¡æ件
oShellLink.WindowStyle = 1 'è¿è¡æ¹å¼
oShellLink.Hotkey = "CTRL+SHIFT+F" 'å¿«æ·é®
oShellLink.IconLocation = "D:\TeenySoft\åè¶ç²¾ç®T3\TsQueryFree.EXE, 0" 'å¾æ
oShellLink.Description = "T3" 'å¤æ³¨
oShellLink.WorkingDirectory = "D:\TeenySoft\åè¶ç²¾ç®T3\" 'èµ·å§ç®å½
oShellLink.Save 'å建快æ·æ¹å¼set WshShell = nothing
set objFSO = nothing
温馨提示:答案为网友推荐,仅供参考