Trap Drive Offline Condition With VBA To Create A Directory On That Drive

[Ark68]

How can I best adapt the following code to trap when the destination drive is unavailable? Sometimes, this drive (O:\) goes offline so if this code is run, an error is triggered.

Public Sub open_folder(txt_model As String)
    Dim modelini As String, fldini As String
    Dim fldMaster As String, fldPath As String
    Dim ffound ' As String
    Dim response

    fldMaster = "O:\IFM\"
    If Dir(fldMaster, vbDirectory) = "" Then
        MkDir fldMaster
    End If
    
    If Right(txt_model, 1) = "." Then txt_model = Left(txt_model, (Len(txt_model) - 1))
    modelini = Left(txt_model, 1)
    fldini = fldMaster & modelini & "\"
    If Dir(fldini, vbDirectory) = "" Then
        MkDir fldini
    End If
    fldPath = fldini & txt_model & "\"
    If Dir(fldPath, vbDirectory) = "" Then
        MkDir fldPath
        MsgBox "Folder for " & txt_model & " created." & Chr(13) & fldPath, vbInformation, "SUCCESS"
    End If
    Shell "explorer.exe /root," & fldPath, vbNormalFocus
End Sub

 

[Micron]

Just test for O: ?

If dir("O:") = "" Then 'off line, so do something else

Note, no backslash, else you'll likely return an empty string even if connected.

 

[Ark68]

Ah! Didn't think it would be that easy, but makes sense now!
Thank you!

 

[Micron]

You're welcome, and thanks for the recognition.