TOP > カテゴリ > Visual Basic >

有効なドライブを列挙する

有効なドライブを列挙するサンプルです。

サンプルの実行画面

ソースコード

[DriveName.frm]

'GetLogicalDriveStrings =>有効なドライブを列挙する

'<引数>
'nBufferLength:バッファのサイズ
'lpBuffer:ドライブを格納するバッファ

'<戻り値>
'正常終了0以外

Private Declare Function GetLogicalDriveStrings Lib "KERNEL32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long



Private Sub Command1_Click()

Dim Drives As String 'ドライブ名を格納する変数
Dim Count As Long    '「・」がある位置
Dim Ret As Long      '戻り値

'バッファを確保
Drives = String(32767, Chr(0))

'有効なドライブを列挙する
Ret = GetLogicalDriveStrings(Len(Drives), Drives)


Do

 '「・」がある位置を取得する
   Count = InStr(Drives, vbNullChar)
 
 '「・」が先頭に来たら終了
   If Count = 1 Then Exit Do
 
 '前方にあるドライブ名を取得してリストに追加する
   List1.AddItem "[" & Left(Drives, Count - 1) & "]"

 '取得したドライブ名を削除する
   Drives = Right(Drives, Len(Drives) - Count)

Loop

End Sub

ソースコード一式のダウンロード

vbapi_drivename.zip 1017 バイト (1,017 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





掲示板

ソフトウェア、ハードウェアのプログラミング用の掲示板を作成しました。質問やわからない事は@掲示板でユーザー同士で情報を共有して下さい。

関連記事



公開日:2015年03月04日
記事NO:00331