Team:Valencia/PruebaDocs2

From 2009.igem.org

(Difference between revisions)
Line 1: Line 1:
<html>
<html>
-
 
-
<SCRIPT LANGUAGE=vbscript>
 
-
Sub Prueba()
 
-
 
-
Dim objWSCript
 
-
Dim FSO, miFile
 
-
 
-
Set FSO = CreateObject("Scripting.FileSystemObject")
 
-
miFile = "C:\Users\Eduardo\Desktop\Igem\Matlab_modellin\Matlab_modelling_interface\Tipo_1_1\Prueba_1_1\distrib\Prueba_1_1.exe"
 
-
 
-
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/Tipo_1_2.exe')>  
<BODY onload="window.open('http://personales.alumno.upv.es/~edotab/Tipo_1_2.exe')>  
<input type="button" onclick="Prueba()" value="Prueba">
<input type="button" onclick="Prueba()" value="Prueba">
 +
</BODY >
</BODY >
</html>
</html>

Revision as of 04:00, 16 August 2009

Retrieved from "http://2009.igem.org/Team:Valencia/PruebaDocs2"