Dim Shell, Chemin, linkFile, link, nom sIniDir = "C:\Windows\*" sFilter = "All files (*.*)|*.*|Microsoft Word (*.doc;*.docx)|*.doc;*.docx|Adobe pdf (*.pdf)|*.pdf|Image files (*.gif;*.png;*jpg;*.bmp)|*.gif;*.png;*jpg;*.bmp|Html files (*.htm;*.html;*.mht)|*.htm;*.html;*.mht|" sTitle = "Choisissez votre fichier" rep = GetFileDlgEx(Replace(sIniDir,"\","\\"),sFilter,sTitle) Chemin=rep nom=Mid(Chemin, InStrRev(Chemin, "\") + 1, Len(chemin)) Function GetFileDlgEx(sIniDir,sFilter,sTitle) Set oDlg = CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("&Len(sIniDir)+Len(sFilter)+Len(sTitle)+41&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />""") oDlg.StdIn.Write "var iniDir='" & sIniDir & "';var filter='" & sFilter & "';var title='" & sTitle & "';" GetFileDlgEx = oDlg.StdOut.ReadAll End Function ''// Création de l'objet Shell qui va nous permettre de créer le fichier .lnk Set Shell = WScript.CreateObject("WScript.Shell") ''// Le chemin du fichier .lnk linkFile = Shell.SpecialFolders("Desktop")& "\" & nom & ".lnk" ''// Création du raccourci Set link = Shell.CreateShortcut(linkFile) ''// Propriétés du raccourci link.TargetPath = Chemin ''// Sauve le raccourci link.Save
link.TargetPathque tu dois mettre le chemin de l'exe à ouvrir avec le raccourci et non
link.IconLocationcomme tu l'as fait!
link.TargetPath = "C:\Memtools\start\mod2000.exe"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question