asp - asp.net - aspcode.it

COMMUNITY - Login
 Username:
 
 Password:
 
Voglio registrarmi!
Password dimenticata?
 Utenti on-line: 0
 Ospiti on-line: 5560
ASPCode.it - Store

  > > Articoli

Ricavare lo spazio residuo dell'Hard Disk

Data di pubblicazione: 31/01/2002        Voto della community: 0,00 (Votanti: 0)

State realizzando uno script per la gestione delle vostre unità di archiviazione?
Ecco un semplice esempio su come ricavare le dimensioni residue di un Hard Disk sfruttando i metodi e le proprietà offerti dall'insieme FileSystemObject.

<%@ Language= "VBScript"%>
<%
' Imponiamo la dichiarazione esplicita delle variabili
Option Explicit

' Funzione che restituisce lo spazio residuo di una determinata unità disco
Function DiskFreeSpace(sDiskDrive)

  ' Creiamo l'oggetto FileSystemObject
  Dim objFSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  ' Impostiamo l'unità da controllare
  Dim DiskDrive
  Set DiskDrive = objFSO.GetDrive(sDiskDrive)

  ' Ricaviamo lo spazio residuo in Kbyte
  Dim iFreeSpace
  iFreeSpace = DiskDrive.FreeSpace

  ' Trasformiamo il residuo in Kbyte
  iFreeSpace = iFreeSpace / 1024
  ' Eliminiamo la parte decimale
  iFreeSpace = FormatNumber(iFreeSpace, 0)

  ' Ricaviamo lo spazio totale in Kbyte
  Dim iTotalSize
  iTotalSize = DiskDrive.TotalSize

  ' Trasformiamo lo spazio totale in Kbyte
  iTotalSize = iTotalSize / 1024
  ' Eliminiamo la parte decimale
  iTotalSize = FormatNumber(iTotalSize, 0)

  ' Restituiamo il risultato
  DiskFreeSpace = iFreeSpace & "Kb residui su " & iTotalSize & "Kb totali."

  ' Liberiamo la memoria
  Set DiskDrive = Nothing
  Set objFSO = Nothing

End Function

' Impostiamo l'unità da controllare
Dim sDriveLetter
sDriveLetter = "c"

' Visualizziamo il risultato richiamando la funzione DiskFreeSpace
' a cui passiamo l'unità da controllare
Response.Write "Unità " & sDriveLetter & ": " & DiskFreeSpace(sDriveLetter)
%>

Lo script è caratterizzato dal metodo GETDRIVE dell'oggetto FileSystemObject e dalle proprietà TOTALSIZE e FREESPACE dell'oggetto DRIVE.
Il metodo GETDRIVE restituisce un oggetto DRIVE corrispondente all'unità di un percorso specificato.
La proprietà FREESPACE dell'oggetto DRIVE restituisce la quantità di spazio disponibile in byte di una unità specificata.
La proprietà TOTALSIZE dell'oggetto DRIVE restituisce lo spazio totale in byte di una unità.




Utenti connessi: 5560