Druckbare Version
Hallo zusammen
Ich hatte hier schon mal gefragt, aber vielleicht weiss jetzt jemand etwas. Ich hab natürlich das Netz auch abgesucht, aber leider nichts hilfreiches gefunden.
Hat jemand eine Idee wie ich in eVB die noch zur Verfügung stehende Speicherkapazität auf der SD-Card abfragen kann?
Gruss Roli
Mit der sehr umfangreichen API-Funktion GetVolumeInformation ist es möglich die Seriennummer und die Datenträgerbezeichnung eines Datenträgers zu erhalten.
Code:Option Explicit
Public Declare Function GetVolumeInformation Lib "kernel32.dll" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName _
As String, ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber _
As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer _
As String, ByVal nFileSystemNameSize As Long) As Long
Public Function LwSerialNumber(Lw As String) As String
Dim FileSystem As String
Dim SerNum As Long
Dim MaxLen As Long
Dim Flags As Long
Dim VolSize As Long
Dim VolLabel As String
Dim SerialNumber As String
Lw = LCase$(Left$(Lw, 1))
If Lw = "\" Then
Exit Function
Else
Lw = Lw & ":\"
End If
FileSystem = Space$(256)
If GetVolumeInformation(Lw, VolLabel, VolSize, SerNum, _
MaxLen, Flags, FileSystem, Len(FileSystem)) <> 0 Then
SerialNumber = Trim(Hex(SerNum))
SerialNumber = _
String(8 - Len(SerialNumber), "0") & SerialNumber
SerialNumber = _
Left$(SerialNumber, 4) & "-" & Right$(SerialNumber, 4)
LwSerialNumber = SerialNumber
Else
LwSerialNumber = "- keine -"
End If
End Function
'----------------------------- Form1 -----------------------------
Option Explicit
Private Sub Drive1_Change()
Dim VolumeSerialNumber As Long
Dim VolumeNameBuffer As String
Dim MaximumComponentLength As Long
Dim FileSystemFlags As Long
Dim FileSystemNameBuffer As String
VolumeNameBuffer = Space(256)
FileSystemNameBuffer = Space(256)
GetVolumeInformation Left(Drive1.Drive, 1) & ":\", _
VolumeNameBuffer, Len(VolumeNameBuffer), _
VolumeSerialNumber, MaximumComponentLength, _
FileSystemFlags, FileSystemNameBuffer, _
Len(FileSystemNameBuffer)
If Left$(VolumeNameBuffer, 1) = Chr(0) Then
Label1(1).Caption = "- keine -"
Else
Label1(1).Caption = VolumeNameBuffer
End If
Label1(3).Caption = LwSerialNumber(Drive1.Drive)
End Sub