Visual Basic - Mostrar capacidad de Disco Duro

Life is soft - evento anual de software empresarial
 
Vista:

Mostrar capacidad de Disco Duro

Publicado por Gianpier (8 intervenciones) el 08/10/2006 21:49:43
Hola:
Como puedo haceer Mostrar capacidad de Disco Duro en un textbox , tambien la memoria Ram y el Microprocesador............gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mostrar capacidad de Disco Duro

Publicado por Gianpier (8 intervenciones) el 09/10/2006 02:13:22
Hola:

Sabes no te entendi nada ...........Que es referencia a Microsoft Scripting Runtime y los Apis como los inserto, me puedes mandar una codificacion
......Disculpa mi ignorancia...........Gracias de todos modos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mostrar capacidad de Disco Duro

Publicado por MariA (38 intervenciones) el 09/10/2006 12:23:18
Coloca en un Form 3 TextBox y un CommandButton y pega este código:

Const MEGABYTES = 1048576
Const GIGABYTES = MEGABYTES * 1024

Private Sub Command1_Click()
' En Menu -> Referencia marcar "Microsoft Scripting Runtime"
Dim FSO As Scripting.FileSystemObject
Dim sFolder As Scripting.Folder
Dim sDrive As Scripting.Drive
Dim dGigas As Double
Dim dMegas As Double
Dim dTotal As Double

Set FSO = New Scripting.FileSystemObject
Set sFolder = FSO.GetFolder("c:\")
Set sDrive = sFolder.Drive
dGigas = (sDrive.FreeSpace / GIGABYTES)
dMegas = (sDrive.FreeSpace / MEGABYTES)
dTotal = sDrive.TotalSize

Text1 = Round(dGigas, 2) & " Gigas disponibles"
Text2 = Format(dMegas, "#,##0") & " Megas disponibles"
Text3 = Format(dTotal, "#,##0") & " Total bytes en Disco"
Set FSO = Nothing
End Sub

Y ahí tienes los gigas y megas disponibles y bytes totales del disco.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar