如何取得磁碟机之Volumn及SerialNumber

Access97和2000适用

这两个磁盘驱动器的数据只能通过使用API函数获得。代码如下:
private declare function getvolume information lib " kernel 32 " alias " getvolume information a "(ByVal lprootname为string，ByVal lpVolumeNameBuffer为String，ByVal nVolumeNameSize为Long，lpVolumeSerialNumber为Long，lpMaximumComponentLength为Long，lpFileSystemFlags为Long，ByVal lpFileSystemNameBuffer为String，ByVal nFileSystemNameSize为Long)

函数GetVolumn(X As String)As String
If Len(X)< 3 Then
X = Left(X，1)& ":\ "
Else
X = Left(X，3)
End If
Dim nRet As String，VolName As String，VolSN As Long，MaxCompLen As Long
Dim vol flags As Long，VolFileSys As String
VolName = Space $(256)[/s

函数get number(X As String)As String
If Len(X)< 3 Then
X = Left(X，1)& ":\ "
Else
X = Left(X，3)
End If
Dim nRet As String，VolName As String，VolSN As Long，MaxCompLen As Long
Dim vol flags As Long，VolFileSys As String
VolName = Space $(256)[/br

前面的Declare语句声明了一个API函数(GetVolumeInformation ),以从磁盘驱动器获取两条数据。