VBA エクスプローラで指定フォルダを開く

サンプルプログラム

Sub Sample()
    Debug.Print nlngエクスプローラでフォルダを開く("C:\nai\")   '0
    Debug.Print nlngエクスプローラでフォルダを開く("C:\")   ' pid
End Sub

こちらのソースコードもコピーしてください。
EXCEL VBA フォルダの存在確認 - pgbigorokuのブログ

ソースコード

 ' エクスプローラでフォルダを開く
'
'pstrフォルダ名　　　エクスプローラで開くファイル名
'
'戻り値　　　　　　　通常はpid、フォルダが見つからない場合は0
'
'URL                https://pgbigoroku.hatenablog.com/entry/2022/07/28/112752
'
'必要URL　　　　　　https://pgbigoroku.hatenablog.com/entry/2022/08/17/005046
'
'2022/8/18
Public Function nlngエクスプローラでフォルダを開く(ByRef pstrフォルダ名 As String) As Long
    If nblnフォルダの存在確認(pstrフォルダ名) = True Then
        nlngエクスプローラでフォルダを開く = Shell("C:\Windows\explorer.exe " & """" & pstrフォルダ名 & """", vbNormalFocus)
    Else
        nlngエクスプローラでフォルダを開く = 0
    End If
End Function