５７．ドライブのタイプを取得

＜　使用用途　＞
　　ドライブのタイプを取得

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

　＜　説明　＞
ＡＰＩ関数のGetDriveTypeを使用します
GetDriveType　＝＞ドライブのタイプを取得　
　　＜引数＞
　　　　　nDrive：ドライブを指定
　　＠戻り値＠
　　　　　0　未知　　　
　　　　　1　存在しない
　　　　　2　フロッピーディスク
　　　　　3　ハードディスク
　　　　　4　ネットワークドライブ
　　　　　5　CD- ROM
　　　　　6　RAMディスクドライブ

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function GetDriveType Lib "KERNEL32"Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Syurui As Long
　　Dim Name As String
　
　　’ドライブを指定
　　Name="C:\"

　　Syurui = GetDriveType(Name)
End Sub