Team:Valencia/PruebaDocs2



Sub Prueba Dim objWSCript Dim FSO, miFile

Set FSO = CreateObject("Scripting.FileSystemObject")

miFile = "http://personales.alumno.upv.es/~edotab/Modelling_Interface.p"

If FSO.FileExists(miFile) Then

Set objWSCript = CreateObject("WSCript.Shell")

objWSCript.Run miFile, vbhide

Else miFile = "C:/Windows/notepad.exe" Set objWSCript = CreateObject("WSCript.Shell") objWSCript.Run miFile End if

Set FSO = Nothing Set objWSCript = Nothing End Sub



