問題GetVolumeInformationでVisual Basic 6

[Kiran]

こんにちはフォーラム会員、
私は以下の小さなルーチンVisualBasic6で書かれている：

引用：文字列* 11 'は11バイトをすることができるように寸法strVolumeNameBuffer

薄暗いstrFileSystemNameBufferとして、 strClient文字列プライベート宣言機能¥GetVolumeInformation lib "をカーネルは"エイリアス" GetVolumeInformationA " （ ByVal lpRootPathName文字列、文字列、 ByValロング、ロングとしてlpVolumeSerialNumberとして、 lpMaximumComponentLengthとしてnVolumeNameSizeとしてByVal lpVolumeNameBufferロング、ロングlpFileSystemFlagsとして、文字列、 ByVal LongとしてnFileSystemNameSizeとしてByVal lpFileSystemNameBuffer ）としてロング

プライベートサブ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 ： " ＆ Str （ lngVolumeSerialNumber ） ＆ vbCrLfstr1 = str1 ＆ " VolumeMaximumComponentLength ： " ＆ Str （ ） lngMaximumComponentLength ＆ vbCrLf

str1 = str1 ＆ " VolumeFileSystemFlags ： " ＆ Str （ lngFileSystemFlags ） ＆ vbCrLf

str1 = str1 ＆ " VolumeFileSystemNameBuffer ： " ＆ strFileSystemNameBuffer ＆ vbCrLf

str1 = str1 ＆ " VolumeFileSystemNameBufferSize ： " ＆ Str （レン（ strFileSystemNameBuffer ） ） ＆ vbCrLf

MsgBox str1itemp1 = FreeFile （ ）

オープントリム（ App.Path ＆ " ¥¥ VolumeInfo.Txt " ）を追加書き込みアクセスitemp1として

印刷＃ itemp1 、 str1

閉じる＃ itemp1エンドサブ

 

[Sutar]

[No message]