GetDriveInfo – Drive serial number and other data

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias _    "GetVolumeInformationA" (ByVal lpRootPathName As String, _    ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _    lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _    lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _    ByVal nFileSystemNameSize As Long)Const MAX_PATH = 260Const FILE_CASE_SENSITIVE_SEARCH = &H1Const FILE_CASE_PRESERVED_NAMES = &H2Const FILE_UNICODE_ON_DISK = &H4Const FILE_PERSISTENT_ACLS = &H8Const FILE_FILE_COMPRESSION = &H10Const FILE_VOLUME_IS_COMPRESSED = &H8000' return volume name, serial number and file system (eg "FAT") for a given drive' it fails with removable drives if the disk isn't in place' the FileSystemFlags argument is a combination of the FILE_* constats' (see MSDN for additional information)'' you can specify an UNC for the drive name ' (e.g."\MyServerMyShare as \MyServerMyShare"' Under Windows95/98 the serial number of network drives isn't returned'' Returns True if all information has been retrieved successfullyFunction GetDriveInfo(ByVal DriveName As String, Optional VolumeName As String, _    Optional SerialNumber As Long, Optional FileSystem As String, _    Optional FileSystemFlags As Long) As Boolean        Dim ignore As Long        ' if it isn't a UNC path, enforce the correct format    If InStr(DriveName, "\") = 0 Then        DriveName = Left$(DriveName, 1) & ":"    End If        ' prepare receiving buffers    SerialNumber = 0    FileSystemFlags = 0    VolumeName = String$(MAX_PATH, 0)    FileSystem = String$(MAX_PATH, 0)        ' The API function return a non-zero value if successful    GetDriveInfo = GetVolumeInformation(DriveName, VolumeName, Len(VolumeName), _        SerialNumber, ignore, FileSystemFlags, FileSystem, Len(FileSystem))    ' drop characters in excess    VolumeName = Left$(VolumeName, InStr(VolumeName, vbNullChar) - 1)    FileSystem = Left$(FileSystem, InStr(FileSystem, vbNullChar) - 1)    End Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: