1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Option Explicit
Dim WS, strDesktop, oMyShortCut
dim I,cnt,Prg,Prg1
set WS=WScript.CreateObject("WScript.Shell")
cnt=ws.specialfolders.count
For I=0 to cnt-1
On Error Resume Next
if err then msgbox err.description
strDesktop = WS.SpecialFolders("DeskTop") & "\FOLD"
prg=WS.SpecialFolders(I)
Prg1=WS.SpecialFolders(I)
Prg1=Left(prg1,instrrev(prg1,"\"))
prg=Right(prg,len(prg)-instrrev(prg,"\"))
Set oMyShortCut = WS.CreateShortcut(strDesktop & "\" & prg & ".lnk")
oMyShortCut.TargetPath = WS.SpecialFolders(I) ' "Chemin Complet"
oMyShortCut.Hotkey = "ALT+CTRL+" & Ucase(Left(prg,1))
oMyShortCut.WorkingDirectory=Prg1
oMyShortCut.Save
strDeskTop=""
Next
Wscript.Quit |
Partager