|
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 = NothingEnd 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à.
A cura di Massimiliano Luciani
|
Guidainlinea.com come homepage
Aggiungi questa pagina ai preferiti