GetVolumeInformation是一个计算机系统函数。
GetVolumeInformation是一个计算机系统函数。
GetVolumeInformation
【1】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
BOOL WINAPI GetVolumeInformation( _In_opt_ LPCTSTR lpRootPathName, _Out_opt_ LPTSTR lpVolumeNameBuffer, _In_ DWORD nVolumeNameSize, _Out_opt_ LPDWORD lpVolumeSerialNumber, _Out_opt_ LPDWORD lpMaximumComponentLength, _Out_opt_ LPDWORD lpFileSystemFlags, _Out_opt_ LPTSTR lpFileSystemNameBuffer, _In_ DWORD nFileSystemNameSize);
BOOL WINAPI GetVolumeInformation( _In_opt_ LPCTSTR lpRootPathName, _Out_opt_ LPTSTR lpVolumeNameBuffer, _In_ DWORD nVolumeNameSize, _Out_opt_ LPDWORD lpVolumeSerialNumber, _Out_opt_ LPDWORD lpMaximumComponentLength, _Out_opt_ LPDWORD lpFileSystemFlags, _Out_opt_ LPTSTR lpFileSystemNameBuffer, _In_ DWORD nFileSystemNameSize);
Private【1】 （同上）
Private Sub Form_Load()
'KPD-Team 1998
Dim Serial As Long, Vname As String, FSName As String
'Create buffers
Vname = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'Get the volume information
GetVolumeInformation "C:", Vname, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
Vname = Left$(Vname, InStr(1, Vname, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
MsgBox "The Volume name of C: is '" + Vname + "', the File system name of C: is '" + FSName + "' and the serial number of C: is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub
GetVolumeInformation参数表
参数 类型及说明
lpRootPathName String，欲获取信息的那个卷的根路径
lpVolumeNameBuffer String，用于装载卷名（卷标）的一个字串
nVolumeNameSize Long，lpVolumeNameBuffer字串的长度
lpVolumeSerialNumber Long，用于装载磁盘卷序列号的变量
lpMaximumComponentLength Long，指定一个变量，用于装载文件名每一部分的长度。例如，在“c:component1component2.ext”的情况下，它就代表component1或component2名称的长度
lpFileSystemFlags Long，用于装载一个或多个二进制位标志的变量。对这些标志位的解释如下：
FS_CASE_IS_PRESERVED 文件名的大小写记录于文件系统
FS_CASE_SENSITIVE 文件名要区分大小写
FS_UNICODE_STORED_ON_DISK 文件名保存为Unicode格式
FS_PERSISTANT_ACLS 文件系统支持文件的访问控制列表（ACL）安全机制
FS_FILE_COMPRESSION 文件系统支持逐文件的进行文件压缩
FS_VOL_IS_COMPRESSED 整个磁盘卷都是压缩的
lpFileSystemNameBuffer String，指定一个缓冲区，用于装载文件系统的名称（如FAT，NTFS以及其他）
nFileSystemNameSize Long，lpFileSystemNameBuffer字串的长度。
温馨提示：
