Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Obtener información de una partición de disco

  • 0 Respuestas
  • 1795 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5490
  • Actividad:
    6.67%
  • Reputación 36
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 12:28:10 pm »
Obtener datos como la etiqueta y el sistema de archivos de una partición:

Código: Visual Basic
  1. Option Explicit
  2. Private Declare Function GetVolumeInformation Lib "Kernel32" _
  3. Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
  4. ByVal lpVolumeNameBuffer As String, _
  5. ByVal nVolumeNameSize As Long, _
  6. lpVolumeSerialNumber As Long, _
  7. lpMaximumComponentLength As Long, _
  8. lpFileSystemFlags As Long, _
  9. ByVal lpFileSystemNameBuffer As String, _
  10. ByVal nFileSystemNameSize As Long) As Long
  11. Private Sub Command1_Click()
  12. Dim lVSN As Long, n As Long, s1 As String, s2 As String
  13. Dim unidad As String
  14. Dim sTmp As String
  15. On Local Error Resume Next
  16. unidad = Trim$(Text1)
  17. s1 = String$(255, Chr$(0))
  18. s2 = String$(255, Chr$(0))
  19. n = GetVolumeInformation(unidad, s1, Len(s1), lVSN, 0, 0, s2, Len(s2))
  20. sTmp = Hex$(lVSN)
  21. Label1(0) = s1
  22. Label1(1) = Left$(sTmp, 4) & "-" & Right$(sTmp, 4)
  23. Label1(2) = s2
  24. End Sub
  25. Private Sub Form_Unload(Cancel As Integer)
  26. Set Form1 = Nothing
  27. End Sub

Se necesitará de Text1 para ingresar la letra de la partición. Por ejemplo: "C:\", Command1 para obtener la información y Label1 indexado para mostrar la información
« Última modificación: Mayo 12, 2014, 03:14:28 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



[VB][Undocumented] LoadUserTile() - Obtener la imagen del usuario

Iniciado por Karcrack

Respuestas: 5
Vistas: 4442
Último mensaje Junio 20, 2013, 04:06:26 pm
por Danyfirex