'placer un raccourci Internet sur le bureau Sub Raccourci_URL() 'VériTi 'http://www.veriti.fr Dim Objet, Lien, Bureau Set Objet = CreateObject("WScript.Shell") Bureau = Objet.SpecialFolders("Desktop") Set Lien = Objet.CreateShortcut(Bureau & "\Site VériTi.url") Lien.TargetPath = "http://www.veriti.fr" Lien.Save EndSub
Date de création : 24/05/2005 - 19:24
Dernière modification : 25/05/2005 - 22:11
Catégorie : Divers Page lue 3032 fois