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

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

Il risultato a video sarà:

Unità: A: unità rimovibile
Unità: C: disco fisso

Pubblicato il 26 set 2002

Link copiato negli appunti

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

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

<%= TipoHD("C") %>

Il risultato a video sarà:

Unità: A: unità rimovibile

Unità: C: disco fisso