07/08/2002, 13:48
|
| | | Fecha de Ingreso: agosto-2002
Mensajes: 12
Antigüedad: 22 años, 3 meses Puntos: 0 | |
| Re: Como llamar otros archivos desde VB 6.0
Esta es otra manera de ejecutar un archivo, en este caso abre un archivo URL, pero puede ser cualquiera
Public Sub OpenURL(Adress As String)
Dim nFile As Integer
nFile = FreeFile
'
Open App.Path & "\cifre.url" For Output As #nFile
Print #nFile, "[InternetShortCut]"
Print #nFile, "URL=" & Adress
Close #nFile
'
Shell "rundll32.exe shdocvw.dll,OpenURL " & App.Path & "\cifre.url", vbMaximizedFocus
End Sub
Unicamente tienes que sustituir cifre.url, por el archivo que desees abrir, incluyendo el path en donde se encuentra |