All pastes #88225 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-07-14 17:44 UTC
rendered paste body
Private Sub drvLocal_Change()
    On Error GoTo Skip
    If drvLocal.Drive = vbNull Then
        dirLocal.Path = drvLocal.Drive
    Exit Sub
    End If

Skip:
    ' Display this error if disk is empty or not in drive
    MsgBox "Drive not found or empty", vbCritical, "Drive Error"
End Sub