Option Explicit

sub uu()

　　Dim wshShell, Shortcut, oArgs

　　Dim strDir, strName, TargetPath, szSrc,cnt,i

　　Set oArgs = Wscr ipt.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( Wscr ipt.Shell )

　　 Set Shortcut = wshShell.CreateShortcut(strName & .lnk )

　　　　Shortcut.TargetPath = TargetPath

　　　　Shortcut.WindowStyle = 1

　　　　rem Shortcut.Hotkey = ALT+U

　　　　Shortcut.Descr iption = nihao

　　　　Shortcut.WorkingDirectory = strDir

　　　　Shortcut.Save

　　 Set Shortcut = Nothing

　　Set wshShell = Nothing

　　Set oArgs = Nothing

End sub

call uu()-Option Explicit

sub uu()

　　Dim wshShell, Shortcut, oArgs

　　Dim strDir, strName, TargetPath, szSrc,cnt,i

　　Set oArgs = Wscr ipt.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( Wscr ipt.Shell )

　　　Set Shortcut = wshShell.CreateShortcut(strName &　.lnk )

　　　　Shortcut.TargetPath = TargetPath

　　　　Shortcut.WindowStyle = 1

　　　　rem Shortcut.Hotkey =　ALT+U

　　　　Shortcut.Descr iption =　nihao

　　　　Shortcut.WorkingDirectory = strDir

　　　　Shortcut.Save

　　　Set Shortcut = Nothing

　　Set wshShell = Nothing

　　Set oArgs = Nothing

End sub

call uu()