<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
PUBLIC FUNCTION createDir(dirName)
Dim objFso
Dim return
on error resume next : err = 0
IF dirName = "" OR dirName = Null THEN
return = False
ELSE
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
objFso.CreateFolder(Server.MapPath(dirName))
IF (err = 0) THEN
return = True
ELSEIF (err <> 0) THEN
return = False
END IF
Set objFso = Nothing
END IF
'Se volete sapere perchè da il risultato FALSE allora togliete apice che sta all'inizio del prossimo rigo.
Response.Write("NUMERO ERRORE: "&err.number&"
DESCRIZIONE ERRORE: "&err.description&"
")
err = 0 : err.clear()
createDir = return
END FUNCTION
Dim page
page = Request.QueryString("page")
IF page = "create" THEN
Response.Write("Il risultato: " & createDir(Request.Form("Name")) & " (FALSE=Cartella non creata; TRUE=Cartella creata)")
ELSE
%>
<HTML>
<HEAD>
<TITLE>Form creazione directory</TITLE>
</HEAD>
<BODY>
<form method="post" action="createDir.asp?page=create">
<input type="text" name="Name" id="ugo">
<input type="submit" value="Crea Cartella">
</form>
</BODY>
</HTML>
<%
END IF
%>
Rispondi quotando
