Visual Basic - Detectar espacio libre en disco duro

Códigos Visual Basic

Util codigo el cual muestra en un mensaje de alerta el espacio libre de nustro disco duro, en megabytes y Kilobytes.

Tutores.org

Inicio > Visual Basic

Visitas: 21,089 - 12/02/2006 20:11:11

CODIGO

// Codigo ofrecido por Tutores.org

' Declaraciones
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
Public Type DiskInformation
lpSectorsPerCluster As Long
lpBytesPerSector As Long
lpNumberOfFreeClusters As Long
lpTotalNumberOfClusters As Long
End Type
' Codigo
Dim info As DiskInformation
Dim lAnswer As Long
Dim lpRootPathName As String
Dim lpSectorsPerCluster As Long
Dim lpBytesPerSector As Long
Dim lpNumberOfFreeClusters As Long
Dim lpTotalNumberOfClusters As Long
Dim lBytesPerCluster As Long
Dim lNumFreeBytes As Double
Dim sString As String
lpRootPathName = "c:" ' Indicar la ruta del disco
lAnswer = GetDiskFreeSpace(lpRootPathName, lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters)
lBytesPerCluster = lpSectorsPerCluster * lpBytesPerSector
lNumFreeBytes = lBytesPerCluster * lpNumberOfFreeClusters
sString = "Bytes Libres : " & lNumFreeBytes & vbCr & vbLf
sString = sString & " Kilobytes libres : " & (lNumFreeBytes / 1024) & "K" & vbCr & vbLf
sString = sString & "Megabytes libres: " & Format(((lNumFreeBytes / 1024) / 1024), "0.00") & "MB"
MsgBox sString

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Detectar espacio libre en disco duro" href="http://www.tutores.org/codigo/1608/" target="_blank">Detectar espacio libre en disco duro</a>

COMENTARIOS

Aun no existe ningun comentario para este Codigo.

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.