Ver Mensaje Individual
  #3 (permalink)  
Antiguo 02/06/2010, 05:58
Insomnia
 
Fecha de Ingreso: noviembre-2005
Mensajes: 751
Antigüedad: 19 años, 4 meses
Puntos: 13
Respuesta: crear enlace a página web

Hola

Lo del VBscript no lo controlo, pero crear algo así en VB6 sería algo parecido a:

Código vb:
Ver original
  1. Dim sDesk As String
  2. Dim lFNum As Long
  3. Dim oShell As New IWshShell_Class
  4.  
  5. sDesk = oShell.SpecialFolders.Item("MyDocuments")
  6. lFNum = FreeFile
  7. Open sDesk & "\" & "GOOGLE" & ".url" For Output As lFNum
  8. Print #lFNum, "[InternetShortcut]"
  9. Print #lFNum, "URL=" & "www.google.es"
  10. Close #lFNum
  11. Set oShell = Nothing

Puedes cambiar el MyDocuments por Desktop para crearlo en el escritorio en lugar de en Mis Documentos. Recuerda que para que funcione tienes que agregar la referencia Windows Script Host Object Model.

Espero que te sea útil.

P.D. Código obtenido de http://www.thescarms.com

--Saludos--