Vấn đề với GetVolumeInformation trong Visual Basic 6

[Guest]

Hi Diễn đàn thành viên,
Tôi đã viết một thói quen nhỏ sau đây trong VisualBasic6:

Tríchim strVolumeNameBuffer Như String * 11 'chỉ có thể được 11 byte

Dim strFileSystemNameBuffer, strClient Như StringChức năng Khai báo tư nhân GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName Như String lpVolumeNameBuffer ByVal, As String, ByVal nVolumeNameSize Như Long, lpVolumeSerialNumber Như Long, lpMaximumComponentLength Như Long, lpFileSystemFlags Như Long lpFileSystemNameBuffer ByVal, As String, ByVal nFileSystemNameSize Như Long) Như Long

Private Sub btnExit_Click ()

Unload Me

End SubPrivate Sub btnGetVolumeInfo_Click ()

Dim itemp1 Như Integer

Dim String str1 NhưstrDrive = Me.txtVolume.Text

strVolumeNameBuffer = Space (11)

strFileSystemNameBuffer = Space (255)

GetVolumeInformation còn lại (strDrive, 2) & "\", strVolumeNameBuffer, Len (strVolumeNameBuffer), lngVolumeSerialNumber, lngMaximumComponentLength, lngFileSystemFlags, strFileSystemNameBuffer, Len (strFileSystemNameBuffer)str1 = "Drive:" & strDrive & vbCrLf

str1 = str1 & "VolumeNameBuffer:" & vbCrLf & strVolumeNameBuffer

str1 = str1 & "VolumeSerialNumber:" & Str (lngVolumeSerialNumber) & vbCrLfstr1 = str1 & "VolumeMaximumComponentLength:" & Str (lngMaximumComponentLength) & vbCrLf

str1 = str1 & "VolumeFileSystemFlags:" & Str (lngFileSystemFlags) & vbCrLf

str1 = str1 & "VolumeFileSystemNameBuffer:" & vbCrLf & strFileSystemNameBuffer

str1 = str1 & "VolumeFileSystemNameBufferSize:" & Str (Len (strFileSystemNameBuffer)) & vbCrLf

MsgBox str1itemp1 = FreeFile ()

Mở Trim (App.Path & "\ VolumeInfo.Txt") Đối với Nối truy cập Viết Như itemp1

In # itemp1, str1

Close # itemp1End Sub