Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Levyaseman sarjanumero

setä [19.02.2008 09:50:35]

#

DOS-kehotteessa DIR-käskyllä saadaan levyaseman nimi ja sarjanumero. Saako nämä jotenkin kaivettua VB5:llä jollain API-funktiolla.

Antti Laaksonen [19.02.2008 10:08:01]

#

Funktiolla GetVolumeInformation pitäisi onnistua. Lisätietoja funktion käytöstä löydät MSDN:stä.

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 nimi As String * 255
    Dim jarj As String * 255
    Dim numero As Long, pituus As Long, liput As Long
    GetVolumeInformation "c:\", nimi, 255, numero, pituus, liput, jarj, 255
    MsgBox "Nimi: " & nimi
    MsgBox "Sarjanumero: " & Hex(numero)
    MsgBox "Tiedostojärjestelmä: " & jarj
End Sub

setä [19.02.2008 12:35:41]

#

Toimii hienosti, suuret kiitokset!

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta