问题GetVolumeInformation在Visual Basic 6

[Guest]

高科技论坛成员，
我已经写了下面的小例行在VisualBasic6 ：

报价：点心strVolumeNameBuffer作为字符串* 11 '只能是11字节

点心strFileSystemNameBuffer ， strClient作为字符串私营宣告功能GetVolumeInformation库“ kernel32 ” Alias的“ GetVolumeInformationA ” （ ByVal lpRootPathName作为字符串， ByVal lpVolumeNameBuffer作为字符串， ByVal nVolumeNameSize ，只要，只要lpVolumeSerialNumber ， lpMaximumComponentLength ，只要，只要lpFileSystemFlags ， ByVal lpFileSystemNameBuffer作为字符串， ByVal nFileSystemNameSize只要）只要

私人小组btnExit_Click （ ）

卸载我

完小组私人小组btnGetVolumeInfo_Click （ ）

点心itemp1作为整数

点心str1排作为字符串strDrive = Me.txtVolume.Text

strVolumeNameBuffer =空间（ 11 ）

strFileSystemNameBuffer =空间（ 255 ）

GetVolumeInformation左（ strDrive ， 2 ） ＆ “ \ ” ， strVolumeNameBuffer ，莱昂（ strVolumeNameBuffer ） ， lngVolumeSerialNumber ， lngMaximumComponentLength ， lngFileSystemFlags ， strFileSystemNameBuffer ，莱昂（ strFileSystemNameBuffer ）str1排= “驱动器： ” ＆ strDrive ＆ vbCrLf

str1排= str1排＆ “ VolumeNameBuffer ： ” ＆ strVolumeNameBuffer ＆ vbCrLf

str1排= str1排＆ “ VolumeSerialNumber ： ” ＆街（ lngVolumeSerialNumber ） ＆ vbCrLfstr1排= str1排＆ “ VolumeMaximumComponentLength ： ” ＆街（ lngMaximumComponentLength ） ＆ vbCrLf

str1排= str1排＆ “ VolumeFileSystemFlags ： ” ＆街（ lngFileSystemFlags ） ＆ vbCrLf

str1排= str1排＆ “ VolumeFileSystemNameBuffer ： ” ＆ strFileSystemNameBuffer ＆ vbCrLf

str1排= str1排＆ “ VolumeFileSystemNameBufferSize ： ” ＆街（斯莱昂（ strFileSystemNameBuffer ） ） ＆ vbCrLf

MsgBox str1排itemp1 = FreeFile （ ）

打开修剪（ App.Path ＆ “ \ VolumeInfo.Txt ” ）的附加访问写的itemp1

打印＃ itemp1 ， str1排

关闭＃ itemp1完小组

 

[Sutar]

[No message]