Guida VBScript
Capitolo 24° - Approfondimento FileSystemObject per Esperti
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
|