９２．有効なドライブを示す文字列を取得する

＜　使用用途　＞
有効なドライブを示す文字列を取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のGetLogicalDriveStrings を使用します
GetLogicalDriveStrings ＝＞有効なドライブを示す文字列を取得
　　＜引数＞
　　　　 　nBufferLength：取得した文字数
　　　　　 lpBuffe：取得した文字列　
　　＠戻り値＠
　　　　　 コピーした文字数

<　ＳＡＭＰＬＥ　＞
’ここでは有効なドライブﾞを示す文字列を取得する処理です
'標準モジュール
Public Declare Function GetLogicalDriveStrings Lib "KERNEL32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()

　　Dim Ret As Long
　　Dim nDrive As String
　　Dim nLeng As Long

　　'バッファを確保
　　　nDrive = String(250, Chr(0))
　　　nLeng = Len(nDrive)

　　'＊A:\,C:\,D:\E:\の場合、nDriveに「 A:\・C:\・D:\・E:\・・・・・」のように入る
　　　Ret = GetLogicalDriveStrings(nLeng, nDrive)
　　
End Sub