ドライブの準備状況を確認する方法

戻る

ドライブの準備状況を確認する方法

動作環境 Windows98/2000 開発環境 Visual Basic 6.0 (+SP5)

説明 Drive オブジェクトの IsReady プロパティを利用して、ドライブの準備状況を確認します。

用意するもの：標準フォーム(Form1)、ドライブリストボックス (Drive1)

Private Sub Drive1_Change()

Dim myFSO As Object
Dim myDrv As Object
Dim myString As String

Set myFSO = CreateObject("Scripting.FileSystemObject")

Set myDrv = myFSO.GetDrive(Drive1.Drive)

myString = myDrv.DriveLetter & " ドライブは"

If myDrv.IsReady = True Then
MsgBox myString & "準備ができています。"
Else
MsgBox myString & "準備ができていません。"
End If

End Sub

ドライブの準備状況を確認する方法
動作環境	Windows98/2000	開発環境	Visual Basic 6.0 (+SP5)
説明	Drive オブジェクトの IsReady プロパティを利用して、ドライブの準備状況を確認します。
用意するもの：標準フォーム(Form1)、ドライブリストボックス (Drive1)
Private Sub Drive1_Change() Dim myFSO As Object Dim myDrv As Object Dim myString As String Set myFSO = CreateObject("Scripting.FileSystemObject") Set myDrv = myFSO.GetDrive(Drive1.Drive) myString = myDrv.DriveLetter & " ドライブは" If myDrv.IsReady = True Then MsgBox myString & "準備ができています。" Else MsgBox myString & "準備ができていません。" End If End Sub