Creazione Cartella

wuolfit_one

Utente Attivo
21 Mag 2020
33
0
6
Salve, il mio problema di oggi è il seguente ho creato uno script per la creazione delle cartelle in un determinato path, ma il problema è che le cartelle non le crea, se gli metto dei response.write sembra non prendere neanche i dati in input potreste darmi una mano a capire perché? Grazie mille qui di seguito posto il sorgente

Codice:
<div align="center" class="small-screen align-center">
    <div class="table grid">
        <div class="tr">
            <div class="td width-40">Inserire il nome per la nuova cartella : </div>
            <div class="td width-40"><input type="text" name="Nome" id="Nome" ></div>
            <div class="td width-20"><input type="submit" value="Crea" name="Crea"><br></div>
        </div>       
    </div>
</div>
<br><br>
<%
Public Function crea()
Dim Nome, path, pNome
Dim CurrentDirectory
CurrentDirectory = fso.GetAbsolutePathName(".")
Set FSO = Server.CreateObject ("Scripting.FileSystemObject")
on error resume next
'percorso
path = Server.MapPath(CurrentDirectory)
pNome = path + Nome
' crea la directory
FSO.CreateFolder pNome, true
if err.Number<>0 then
  Response.write "<P>Directory creata!"
else
  Response.write "<P>Errore: " &_
                 err.description
end if
set FSO = Nothing
end function
%>