ドライブの準備ができているかをチェックする方法 Hit Counter

対象バージョン ： 97, 2000, 2002, 2003, 2007
最終更新日 ： 2007/03/11 （オリジナル作成日 ： 2004/11/08）

概　要　

FD や USB メモリ等のリムーバブルなメディアが、指定したドライブにセット・接続されているかをチェックするユーザー定義関数です。

　

構　文 

　 IsDriveReady(DriveName)

解　説

IsDriveReady 関数の戻り値はブール型 (Boolean)です。

引数 DriveName には、ドライブ名を示す文字列式を指定します。

引数に指定されているドライブが存在し、メディアがセットされている場合は True を、ドライブが存在しない、あるいはメディアがセットされていない場合 は False を返します。


ユーザー定義関数

●参照設定で "Microsoft Scripting Runtime" を指定する場合

Public Function IsDriveReady(argDrive As String) As Boolean
Dim objFSO As Scripting.FileSystemObject
Dim objDrv As Scripting.Drive

Set objFSO = New Scripting.FileSystemObject

IsDriveReady = False

If objFSO.DriveExists(argDrive) = True Then
    Set objDrv = objFSO.GetDrive(argDrive)
    IsDriveReady = objDrv.IsReady
    Set objDrv = Nothing
End If
Set objFSO = Nothing

End Function

●参照設定を変えない場合
FileSystemObject の変数宣言と、作成方法が変わります。

Dim objFSO As Object
Dim objDrv As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

使用例

If IsDriveReady("A") = False Then
    MsgBox "A ドライブに FD をセットしてください"
End If

目次へ戻る