In molte applicazioni Web che sfruttano il File System torna utile intercettare in maniera dinamica l’estensione di un file selezionato.

Ad esempio in uno script per Upload potrebbe tornare utile conoscere l’estensione del file per eventualmente bannarla (non è bello lasciare uploadare un eseguibile!) oppure per consentire il solo upload di file JPG se il sito tratta fotografie. Oppure in un FIle Manager è opportuno conoscere l’estensione di un file per poter visualizzare un’icona piuttosto che un’altra in un elenco dei file presenti in una determinata cartella, e cosi via.

Tutto quello che ci serve è il metodo GetExtensionName() dell’oggetto FSO utilizzato come segue

<%@LANGUAGE = VBScript%>
<%
    Dim fso
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    With Response
        .Write "L'estensione del file è: "
        .Write fso.GetExtensionName("miofile.txt")
    End With

    Set fso = Nothing
%>

Ecco cosa abbiamo fatto: abbiamo aperto un’istanza dell’oggetto File System, abbiamo stampato a video l’estensione del file miofile.txt (che per l’esempio deve trovarsi nella stessa posizione sul server del file ASP che esegue lo script) ed abbiamo svuotato l’FSO per fare pulizia.