Imaginsystems


Tecniche di Programmazione - Codici Sorgenti - News Informatiche
Archivio Posts
Anno 2014

Anno 2013

Anno 2012
Statistiche
  • Views Home Page: 73.755
  • Views Posts: 551.411
  • Views Gallerie: 0
  • n° Posts: 210
  • n° Commenti: 224

VB6 - ACQUISIRE LA DIMENSIONE DELLO SPAZIO LIBERO DI UN'UNITA'

ACQUISIRE LA DIMENSIONE DELLO SPAZIO LIBERO DI UN'UNITA'

Per conoscere lo spazio libero disponibile su un'unità si può utilizzare la proprietà .AvailableSpace.
L'esempio seguente mostra una funzione che accetta come primo parametro un drive e ne restituisce il numero di byte disponibili ( per trasformare tale valore in kilobyte è sufficiente dividerlo per 1.024 oppure, se si desidera la conversione in megabyte, per 1.048.576).

CODICE VISUAL BASIC 6 / VB6 :

Function ByteLiberiSuUnita(ByVal Unita As String) As Long
Dim FileSystemObj
Dim Drv
Set FileSystemObj = CreateObject("Scripting.FileSystemObject")
Set Drv = FileSystemObj.GetDrive(Unita)
ByteLiberiSuUnita = Drv.AvailableSpace
End Function

Per richiamare la funzione si utilizza una delle seguenti forme:

SpazioLibero = ByteLiberiSuUnita("C:\")
SpazioLibero = ByteLiberiSuUnita("C:")
SpazioLibero = ByteLiberiSuUnita("C")

Per ottenere il valore espresso in megabyte :

SpazioLibero = ByteLiberiSuUnita("C") / 1048576

Vi ricordo che SpazioLibero è una variabile di tipo Long quindi deve essere dichiarata prima del richiamo della funzione :

 Dim SpazioLibero As Long
Categoria: VB6
lunedì, 07 mag 2012 Ore. 09.37

Messaggi collegati


Ora e Data
Mappa
Blogs Amici
    Copyright © 2002-2007 - Blogs 2.0
    dotNetHell.it | Home Page Blogs
    ASP.NET 2.0 Windows 2003