社内パブリックフォルダへのアクセスができるかどうかを判定させてたい

Question

①PCがネットワークに接続されているか
②社内パブリックフォルダにアクセスできる状況か
という点をコードで判定させたいのですが、良い方法ありますでしょうか。

Answer 1

ネットワークドライブの存在を確認をする方法です。

Sub ドライブの存在確認を行う()
　With CreateObject("Scripting.FileSystemObject")
　　If .DriveExists("D:") Then
　　　MsgBox "Dドライブが存在します。"
　　Else
　　　MsgBox "Dドライブはありません。"
　　End If
　End With
End Sub

Answer 2

当たって砕けろ精神で On Error Resume Nextしてからアクセスしたらどうでしょう。

Sub sample()
    Dim wb As Workbook
    Set wb = CmIyc("\public\folder\")

    If wb Is Nothing Then
        MsgBox "ダメでした"
        Exit Sub
    End If
End Sub

Function CmIyc(filepath) As Workbook
    On Error Resume Next
    Application.DisplayAlerts = False
    Set cmiyc = Workbooks.Open(filepath)
    Application.DisplayAlerts = True
End Function