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