有効なドライブ名一覧の表示(VB)

キーワード:

GetLogicalDriveStrings

サンプルコード:

' 有効なドライブ名の一覧を表示
Private Sub DispLogicalDriveStrings()
	Const DrivesSize As Long = 105

	Dim Drives As String * DrivesSize
	Dim DLetter As String
	Dim Idx As Long
	Dim NextDelim As Long
	Dim Msg As String

	'ドライブ名一覧の取得
	GetLogicalDriveStrings DrivesSize, Drives

	Idx = 1
	NextDelim = InStr(Idx, Drives, vbNullChar)

	'メッセージの作成
	Do
		Msg = Msg & Mid(Drives, Idx, NextDelim - Idx) & vbCr
		Idx = NextDelim + 1
		NextDelim = InStr(Idx, Drives, vbNullChar)
	Loop While Idx <> NextDelim

	'メッセージの表示
	MsgBox Msg
End Sub


(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。