<html>
<head><title>CREAR CARPETA</title>
</head>
<BODY>
<SCRIPT LANGUAGE="VBScript">
Sub Crear_OnClick
Dim fso, f1, f2, s
Disco = document.Formulario.Disco.value
Carpeta = document.Formulario.Carpeta.value
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder (Disco+ ":\"+ Carpeta)
document.Write("<center><font face color='blue'> <h2> LA CARPETA SE HA CREADO CON EXITO </h2> </font> </center>")
document.Write("<center><INPUT TYPE='BUTTON' VALUE='CERRAR' onclick='VBScript: Self.Close'></center>")
End Sub
</script>
</head>
<body>
<H2>INTRODUZCA EL NOMBRE DEL DISCO DONDE QUIERE CREAR LA CARPETA
(ejemplo C )</H2>
<B>TAMBIEN INTRODUZCA EL NOMBRE QUE QUIERA DARLE A LA CARPETA
(ejemplo CARPETA )</B>
<form name="Formulario">
DISCO: <input type="text" name="Disco" size=5 maxlength=50 value="">
CARPETA: <input type="text" name="Carpeta" size=20 maxlength=50 value="">
</form>
<INPUT TYPE="BUTTON" NAME="Crear" value="CREAR CARPETA"><br><br>
Y HAZ CLICK SOBRE EL BOTON <B>"CREAR CARPETA"</B><br> (Te dará un mensaje de Seguridad "ACEPTALÓ" DESPUES<br>
BUSCA LA CARPETA EN EL DISCO QUE HAYAS DECIDIDO CREARLA.<br>
(Despues estudia el codigo de esta paguina para entenderlo).<br>
Un Saludo
[email protected]</b><br>
</BODY>
</HTML>
