Creare una directory

Prendendo in prestito l’idea ed il nome dal linguaggio PHP, vediamo come realizzare una funzione che ci consenta di creare agevolmente una directory sul server e, cosa molto importante, verificare che la creazione sia avvenuta con successo.

Per semplicità lo script è realizzato come funzione. In questo modo sarà più agevole richiamare la creazione ovunque e senza dover riscrivere ogni volta l’istruzione:


public function mkdir(dirname)

Dim fso

Dim return

‘ Attiva la gestione errori

on error resume next : err = 0

‘ Crea l’oggetto FSO

Set objFso = Server.CreateObject(“Scripting. FileSystemObject”)

objFso.CreateFolder(Server.MapPath(dirname))

if (err = 0) then

return = true

else

return = false

end if

Set objFso = Nothing

err = 0 : err.clear()

rmdir = return

end function

Vediamo, nel dettaglio, le caratteristiche della funzione.

Tralasciando le prime righe relative alla dichiarazione della funzione e delle variabili, la prima cosa da fare è attivare la gestione degli errori attraverso il comando On Error Resume Next. In questo modo, sarà possibile intercettare problemi nella creazione della cartella.

A seguire non resta che creare un’istanza dell’oggetto File System Object e chiamare il metodo createFolder() per creare la cartella, passando il nome ed il percorso della nuova directory.

A questo punto, attraverso un semplice controllo condizionale, individuiamo eventuali errori nella creazione ed impostiamo il valore restituito dalla funzione.

In caso di errori la funzione mkdir restituirà false, in alternativa true.

Infine, distruggiamo gli oggetti liberando le risorse e chiudiamo la funzione restituendo l’esito della creazione

I Video di HTML.it

Pietro Polsinelli

Pietro Polsinelli ci parla di gaming con HTML5.