Dim Fichier As String Dim SiteURL As String Dim Num As Integer Fichier = "C:\Visual Basic Codes Sources.url" SiteURL = "http://www.vbfrance.com/" Num = FreeFile Open Fichier For Output As Num Print #Num, "[InternetShortcut]" Print #Num, "URL=" & SiteURL Close Num
Télécharger le zip
Cool !!!Ca fait 30 ans que je veux faire un raccourcis .lnk mais je n'y arrive pas donc j'ai pris ton code est mis l'adresse de mon fichier et sa marche !!! :)Par contre on pourrai pas changer l'icon en meme temps qu'on le cree ??Merci
oui on peut, il suffit d'ajouter les lignes suivantes :IconIndex=0IconFile=C:Mes documentsSans Titre.ico
exactement ce que cherchais! vive toi !(mais pourquoi microsoft ne documente pas mieux pour ce genre de chose ?)
Voici Comment je fais en VBNET(Visual Studio 2008) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Permet de trouver le chemin du bureau de l'utilisateur Dim chemin As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) chemin = chemin + "\Nomdemonurl.url" Dim objWriter As New System.IO.StreamWriter(chemin, False, System.Text.Encoding.Default) Dim MysqlResult2 As New ArrayList() objWriter.WriteLine("[InternetShortcut]") objWriter.WriteLine("URL=http://monlien.html") objWriter.WriteLine("IDList=") objWriter.WriteLine("IconFile=C:\monicone.ico") objWriter.WriteLine("HotKey = 0") objWriter.WriteLine("IconIndex = 0") objWriter.WriteLine("[{000214A0-0000-0000-C000-000000000046}]") objWriter.WriteLine("Prop3=19,2") objWriter.Close() FileClose(1) End Sub
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte