- Category:
- Other systems
- Tags:
-
- File Size:
- 1kb
- Update:
- 2014-11-21
- Downloads:
- 0 Times
- Uploaded by:
- dc
Description: Option Explicit
sub uu()
Dim wshShell, Shortcut, oArgs
Dim strDir, strName, TargetPath, szSrc,cnt,i
Set oArgs = WScript.Arguments
TargetPath = oArgs(0)
szSrc = Split(TargetPath, \ ,-1, 1)
cnt = UBound(szSrc)
For i = 0 To (cnt- 1) step 1
strDir = (strDir & szSrc(i) & \ )
Next
strName = C:\Users\Administrator\Desktop\ + szSrc(cnt)
Set wshShell = WSH.CreateObject( WScript.Shell )
Set Shortcut = wshShell.CreateShortcut(strName & .lnk )
Shortcut.TargetPath = TargetPath
Shortcut.WindowStyle = 1
rem Shortcut.Hotkey = ALT+U
Shortcut.Description = nihao
Shortcut.WorkingDirectory = strDir
Shortcut.Save
Set Shortcut = Nothing
Set wshShell = Nothing
Set oArgs = Nothing
End sub
call uu()
To Search:
File list (Check if you may need any files):
SendShortcutToDesktop.vb
Download