申明：
Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Long, ByVal lpMaximumComponentLength As Integer, ByVal lpFileSystemFlags As Integer, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer
应用：
Dim t As String = Space(256) '用于装载卷名（卷标）的一个字符串
Dim m As String = Space(256)'指定一个缓冲区，用于装载文件系统 的名称如FAT，NTFS以及其他）
Dim lVolumeSn As Long '磁盘卷序列号
Dim lResult As Integer = GetVolumeInformation("C:\", t, 256, lVolumeSn, 0, 0, m, 256)'非0标识成功
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
热心网友
回答时间：2025-01-02 19:57
