vb初学者向大哥请教

Question

Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
这段代码我知道是声明一段api，但是我不知道是手写的，还是下载以后载入的ａｐｉ我是很想学的
 '代码如下: Function GetSerialNumber(strDrive As String) As LongDim SerialNum As LongDim Res As LongDim Temp1 As StringDim Temp2 As StringTemp1 = String$(255, Chr$(0))　　　这段代码什么意思Temp2 = String$(255, Chr$(0))Res = GetVolumeInformation(strDrive, Temp1, _　　这段代码什么意思Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))GetSerialNumber = SerialNumEnd Function 
Private Sub form_load()
'使用该函数:  MsgBox GetSerialNumber("c:\")这段代码什么意思
 '它将告诉你C驱的磁盘序号。End Sub

Answer 1

Temp1 = String$(255, Chr$(0))temp1这个字符串变量=255个asc码为0的字符组成的字符串

Answer 2

Temp1 = String$(255, Chr$(0))'就是指定Temp1的长度为255个字节.
Len(Temp2)'就是传一个长度进去.因为你已经定义了Temp1跟Temp1是255个字节,也可以这样
Res = GetVolumeInformation(strDrive, Temp1,255, SerialNum, 0, 0, Temp2, 255)MsgBox GetSerialNumber("c:\")就是调用GetSerialNumber这个函数得到C盘的磁盘序号