如何取得磁碟机之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 ),以从磁盘驱动器获取两条数据。
0条评论