Publicentral.com - Promocion en cientos de buscadoresPromocion en cientos de buscadores
Mostrando Codigo - Visual Basic
Code

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.
Visitas: 21,423 - 12/02/2006 20:11:11
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. ' Declaraciones
  2. 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
  3.  
  4. Public Type DiskInformation
  5.     lpSectorsPerCluster As Long
  6.     lpBytesPerSector As Long
  7.     lpNumberOfFreeClusters As Long
  8.     lpTotalNumberOfClusters As Long
  9. End Type
  10.  
  11. ' Codigo
  12. Dim info As DiskInformation
  13. Dim lAnswer As Long
  14. Dim lpRootPathName As String
  15. Dim lpSectorsPerCluster As Long
  16. Dim lpBytesPerSector As Long
  17. Dim lpNumberOfFreeClusters As Long
  18. Dim lpTotalNumberOfClusters As Long
  19. Dim lBytesPerCluster As Long
  20. Dim lNumFreeBytes As Double
  21. Dim sString As String
  22.  
  23. lpRootPathName = "c:" ' Indicar la ruta del disco
  24. lAnswer = GetDiskFreeSpace(lpRootPathName, lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters)
  25. lBytesPerCluster = lpSectorsPerCluster * lpBytesPerSector
  26. lNumFreeBytes = lBytesPerCluster * lpNumberOfFreeClusters
  27. sString = "Bytes Libres : " & lNumFreeBytes & vbCr & vbLf
  28. sString = sString & " Kilobytes libres :  " & (lNumFreeBytes / 1024) & "K" & vbCr & vbLf
  29. sString = sString & "Megabytes libres: " & Format(((lNumFreeBytes / 1024) / 1024), "0.00") & "MB"
  30.  
  31. MsgBox sString
  32.  



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<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>
<!-- Final enlace Tutores.org -->
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.