Problem med GetVolumeInformation i Visual Basic 6

[Mr. Kiran V. Sutar]

Hi Forum Members,
Jeg har skrevet følgende lite rutine i VisualBasic6:

Sitatim strVolumeNameBuffer As String * 11 'Kan bare 11 bytes

Dim strFileSystemNameBuffer, strClient As StringPrivate erklærer Funksjon GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) så lenge

Private Sub btnExit_Click ()

Losse Me

End SubPrivate Sub btnGetVolumeInfo_Click ()

Dim itemp1 As Integer

Dim str1 As StringstrDrive = Me.txtVolume.Text

strVolumeNameBuffer = Space (11)

strFileSystemNameBuffer = Space (255)

GetVolumeInformation Venstre (strDrive, 2) & "\", strVolumeNameBuffer, Len (strVolumeNameBuffer), lngVolumeSerialNumber, lngMaximumComponentLength, lngFileSystemFlags, strFileSystemNameBuffer, Len (strFileSystemNameBuffer)str1 = "Drive" & strDrive & vbCrLf

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

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

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

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

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

MsgBox str1itemp1 = FreeFile ()

Åpne Trim (App.Path & "\ VolumeInfo.Txt") For Legg Access Skriv Som itemp1

Skriv ut # itemp1, str1

Lukk # itemp1End Sub