COMANDO VOL

ADRIANO 23/03/2004 00:56:22
#16529
No DOS existe um comandinho chamado "Vol" que tem a função de mostrar o número de série do volume do hd.

Alguém aí sabe algum comando que seja como o "vol" em vb??

Desde já agradeço.

Adriano D. Mà¼ller
USUARIO.EXCLUIDOS 23/03/2004 02:11:22
#16534 Resposta escolhida
Só usando Api, e acho que você não gosta muito de Apis não é? Mas em todo caso lá vai:
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
    Dim Serial As Long, VName As String, FSName As String

    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))

    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255

    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    If VName = "" Then VName = "Não possui nome"
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    MsgBox "Onome do volume C:\ é """ + VName + """, o sistema de arquivos do volume C:\ é """ + FSName + """ e o número serial de C:\ é """ + Trim(Str$(Serial)) + """", vbInformation + vbOKOnly, App.Title
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar