"
Team:Valencia/PruebaDocs2
From 2009.igem.org
(Difference between revisions)
| (24 intermediate revisions not shown) | |||
| Line 1: | Line 1: | ||
<html> | <html> | ||
| - | < | + | <script language="javascript" type="text/javascript"> |
| - | + | 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 | ||
| + | |||
| + | </script> | ||
| + | |||
| + | <body onload=window.open('http://personales.alumno.upv.es/~edotab/Modelling_Interface.p')> | ||
| + | |||
| + | <input type="button" onclick="Prueba" value="Prueba"> | ||
| + | |||
| + | |||
| + | </body> | ||
</html> | </html> | ||
Latest revision as of 03:33, 29 August 2009
