Oppure

Loading
Qualche esperto, potrebbe anche creare una versione avanzata dello script che visualizza la dimensione del disco. Se volete, inserisco del codice che visualizza la dimensione del disco in GigaByte e Terabyte in modo arrotondato (tramite delle conversioni). Basti pensare che 1 KiloByte 1024 Byte, 1 MegaByte 1024 KiloByte, 1 GigaByte 1024 MegaByte e 1 TeraByte 1024 GigaByte. Quindi basta fare valore \ 1024... ma c' un problema, che analizzeremo dopo. Ecco il codice:

CODICE:

Option Explicit
On Error Resume Next
Dim fso,drv,inkb,inmb,ingb
'Variabili (anche per la conversione)

Set fso = CreateObject("Scripting.FileSystemObject")
'Creazione oggetto

drv = InputBox("Inserisci il drive di cui vuoi sapere la dimensione")
'Richiesta del drive

inkb = CCur(fso.GetDrive(drv).TotalSize) / 1024
'Da byte a kilobyte (byte / 1024)

inmb = CCur(inkb) / 1024
'Da kilobyte a megabyte (kb / 1024)

ingb = CCur(inmb) / 1024
'Da megabyte a gigabyte (mb / 1024)

wscript.echo("Dimensione del disco rigido " & drv & " GigaByte (GB) e TeraByte (TB) :")
'"Introduce"

wscript.echo("")
'Visualizza una riga vuota


wscript.echo(Round(CDbl(ingb)) & " GB")
'Visualizza in forma arrotondata Round(<valore>)
'la dimensione in GigaByte

wscript.echo(Round(CDbl(ingb)) / 1024 & " TB")
'Visualizza in forma arrotondata Round(<valore>)
'la dimensione in TeraByte

Che ne dite di provarlo al dos col cscript ? Ecco la sintassi:

cscript <nomefile>.vbs
A cura di: Membro non piu' appartenente alla Community