crear enlace a página web

[minette1988]

Hola, tengo que crear un script en visual basic que cree un enlace a la página web www.google.com. En el programa aparecerá un menú donde elegiremos donde crear el enlace. El enlace se podrá crear en el escritorio (Desktop) o en mis documentos (My Documents). Si no se introduce ninguna de las dos opciones anteriores o es incorrecto nos dará un mensaje de error.

Es una de las preguntas que me han salido en el examen y he sacado un 4. Me gustaría que me ayudarais a resolver este ejercicio, ya que no puedo practicar en casa porque no tengo Windows.
Si me podéis decir alguna pagina donde haya ejercicios resueltos de Visual Basic Script os lo agradecería. Gracias.

[minette1988]

Ayuda urgente.

[Insomnia]

Hola

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

Código vb:

Dim sDesk As String
Dim lFNum As Long
Dim oShell As New IWshShell_Class
 
sDesk = oShell.SpecialFolders.Item("MyDocuments")
lFNum = FreeFile
Open sDesk & "\" & "GOOGLE" & ".url" For Output As lFNum
Print #lFNum, "[InternetShortcut]"
Print #lFNum, "URL=" & "www.google.es"
Close #lFNum
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--

[minette1988]

Algunas variables que usas yo no las he dado, por eso he pensado de publicar un ejemplo de script haber si alguien lo puede adaptar a lo que pide el ejercicio. Lo que si he dado en clase es el Msgbox, inputbox, option explicit para declarar variables

Este script lo que hace es crear un acceso directo a una página web en el escritorio

Dim shell, Escritorio, Mishortcut,ur

Set shell = CreateObject("Wscript.shell")

Escritorio = shell.SpecialFolders("Desktop")

Set ur = shell.CreateShortcut(Escritorio & "\3x4.url")

ur.targetpath = "http://www.3x4.info/"

ur.save