Beschreibung: Deklaration: Declare Function GetVolumeInformation Lib "kernel32.dll" _ 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 String) As Long Parameter:
lpFileSystemFlags Konstanten: FS_CASE_IS_PRESERVED Dateisystem hält die Groß-/Kleinschreibung strickt ein FS_CASE_SENSITIVE Das Dateisystem kann bei einer Suche nach Groß-/Kleinschreibung unterscheiden FS_UNICODE_STORED_ON_DISK Dateinamen werden als Unicode-Strings gespeichert FS_PERSISTENT_ACLS Das Dateisystem speichern Zugriffskontroll-Listen (ACL) FS_FILE_COMPRESSION Das Dateisystem unterstützt dateibasierendes Komprimieren. FS_VOLUME_IS_COMPRESSED Das Dateisystem ist komprimiert (z.B. mit DoubleSpace) FILE_NAMED_STREAMS Das Dateisystem unterstützt Dateistreams FILE_SUPPORTS_ENCRYPTION Das Dateisystem unterstützt verschlüsselte Dateisysteme (EFS) FILE_SUPPORTS_OBJECT_IDS Das Dateisystem unterstützt Objekte ID's FILE_SUPPORTS_REPARSE_POINTS Das Dateisystem unterstüstzt Reparse-Punkte FILE_SUPPORTS_SPARSE_FILES Das Dateisystem unterstützt Sparse-Dateien FILE_VOLUME_QUOTAS Das Dateisystem unterstützt Laufwerksanteile Konstanten Deklaration: Const FS_CASE_IS_PRESERVED = &H2 Const FS_CASE_SENSITIVE = &H1 Const FS_UNICODE_STORED_ON_DISK = &H4 Const FS_PERSISTENT_ACLS = &H8 Const FS_FILE_COMPRESSION = &H10 Const FS_VOLUME_IS_COMPRESSED = &H8000 Const FILE_NAMED_STREAMS = &H40000 Const FILE_SUPPORTS_ENCRYPTION = &H20000 Const FILE_SUPPORTS_OBJECT_IDS = &H10000 Const FILE_SUPPORTS_REPARSE_POINTS = &H80 Const FILE_SUPPORTS_SPARSE_FILES = &H40 Const FILE_VOLUME_QUOTAS = &H20 Rückgabewert: Beispiel: Private Declare Function GetVolumeInformation Lib "kernel32.dll" _ 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 Const FS_CASE_IS_PRESERVED = &H2 Private Const FS_CASE_SENSITIVE = &H1 Private Const FS_UNICODE_STORED_ON_DISK = &H4 Private Const FS_PERSISTENT_ACLS = &H8 Private Const FS_FILE_COMPRESSION = &H10 Private Const FS_VOLUME_IS_COMPRESSED = &H8000 Private Const FILE_NAMED_STREAMS = &H40000 Private Const FILE_SUPPORTS_ENCRYPTION = &H20000 Private Const FILE_SUPPORTS_OBJECT_IDS = &H10000 Private Const FILE_SUPPORTS_REPARSE_POINTS = &H80 Private Const FILE_SUPPORTS_SPARSE_FILES = &H40 Private Const FILE_VOLUME_QUOTAS = &H20 Private Sub Command1_Click () Dim Retval As Long, PufferFlags As Long Dim PufferMaxFileLen As Long, PufferSerial As Long Dim PufferName As String, PufferFAT As String Dim TmpSN As String PufferName = Space(256) PufferFAT = Space(256) Retval = GetVolumeInformation("c:", PufferName, 256&, PufferSerial, _ PufferMaxFileLen, PufferFlags, PufferFAT, 256&) If Retval <> 0 Then Debug.Print "Laufwerksinformationen Laufwerk C:" Debug.Print "------------------------------------------------------" Debug.Print "Name: " & Left$(PufferName, InStr(1, PufferName, vbNullChar) - 1) Debug.Print "FAT: " & Left$(PufferFAT, InStr(1, PufferFAT, vbNullChar) - 1) Debug.Print "Max. DateiNamenlänge: " & CStr(PufferMaxFileLen) & " Zeichen" ' Seriennummer berechnen TmpSN = Trim(Hex(PufferSerial)) TmpSN = String(8 - Len(TmpSN), "0") & TmpSN TmpSN = Left$(TmpSN, 4) & "-" & Right$(TmpSN, 4) Debug.Print "Seriennummer: " & TmpSN ' Systemeigenschaften überprüfen Debug.Print "Das Laufwerk: " If (PufferFlags And FS_VOLUME_IS_COMPRESSED) Then Debug.Print " - ist komprimiert" Else Debug.Print " - ist nicht komprimiert" End If If (PufferFlags And FS_CASE_IS_PRESERVED) Then Debug.Print " - unterscheidet zwischen Groß-/Kleinschreibung " End If If (PufferFlags And FILE_SUPPORTS_ENCRYPTION) Then Debug.Print " - unterstützt Encrypted File System (EFS)" End If ' und so weiter... End If End Sub Diese Seite wurde bereits 14.653 mal aufgerufen. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |