Visualizzare la tipologia di un'unità del server

Tramite il metodo DriveType di GetDrive è possibile venire a conoscenza della tipologia di unità presente sul server indicandone la lettera:

<%

Function TipoHD(unita)

Dim fso, u, tipo

Set fso = CreateObject("Scripting.FileSystemObject")

Set u = fso.GetDrive(unita)

Select Case u.DriveType

Case 0: tipo = "sconosciuto"

Case 1: tipo = "unità rimovibile"

Case 2: tipo = "disco fisso"

Case 3: tipo = "unità di rete"

Case 4: tipo = "CD-ROM"

End Select

TipoHD = "Unità: " & u.DriveLetter & ": " & tipo

End Function

%>

<%= TipoHD("A") %><br>

<%= TipoHD("C") %>

Il risultato a video sarà:

Unità: A: unità rimovibile

Unità: C: disco fisso