how to determin if a drive is ready

[jay]

How do you verify if a drive is ready using vba?
That is Cdrom, zip and usb drives.

I tried the vba below however it errors on a drive letter
that is not there such as a removed usb drive. It works with
the Zip and Cdrom but when a usb drive is removed it errors.



Dim fs, d

Set fs = CreateObject("Scripting.FilesSystemObject")
Set d = fs.GetDrive("h:")

If d.IsReady Then
Do this and that
End If

 

[SteveM]

I would just trap the error in your code and report it to the user.

To find the error codes to trap, use MsgBox Err.Number & Err.Description
then use structured error handling in your routine.

MySub()
On Error GoTo ErrHandler

'Your code here

Exit_Sub:
'Clean up code here
Exit Sub

ErrHandler:
Select Case Err.Number
Case 3043
MsgBox "The following error occured: "
Resume Exit_Sub
Case 3044
MsgBox "The following error occured: "
Resume Exit_Sub
Case Else
MsgBox Err.Number & ": " & Err.Description
Resume Exit_Sub
End Select

End Sub

Steve

 

[jay]

I would just trap the error in your code and report it to the user.

To find the error codes to trap, use MsgBox Err.Number & Err.Description
then use structured error handling in your routine.

MySub()
On Error GoTo ErrHandler

'Your code here

Exit_Sub:
'Clean up code here
Exit Sub

ErrHandler:
Select Case Err.Number
Case 3043
MsgBox "The following error occured: "
Resume Exit_Sub
Case 3044
MsgBox "The following error occured: "
Resume Exit_Sub
Case Else
MsgBox Err.Number & ": " & Err.Description
Resume Exit_Sub
End Select

End Sub

Looks like it is working now. Thanks

 

[Tom Wickerath]

You can also use the code shown in this KB article:

How To Determine the Type of Drive Using Win32 (Modified version)
http://support.microsoft.com/?id=161300

Also written for Visual Basic, it works just fine in VBA.


Tom Wickerath
Microsoft Access MVP
https://mvp.support.microsoft.com/profile/Tom
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________