' ------------------------------------------------------------------------------------------------
' EdgeブラウザのパスをOSバージョンに基づいて取得
' ------------------------------------------------------------------------------------------------
Private Function GetEdgePath() As String
    ' デフォルトのパスを設定
    Dim defaultPaths(1 To 2) As String
    defaultPaths(1) = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
    defaultPaths(2) = "C:\Program Files\Microsoft\Edge\Application\msedge.exe"
    
    ' ファイルシステムオブジェクトを作成
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' デフォルトのパスをチェック
    Dim i As Integer
    For i = 1 To UBound(defaultPaths)
        If fso.FileExists(defaultPaths(i)) Then
            GetEdgePath = defaultPaths(i)
            Exit Function
        End If
    Next i
    
    ' レジストリから検索
    On Error Resume Next
    
    ' シェルシェルオブジェクトを作成
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    
    ' レジストリからEdgeのパスを取得しようとする
    Dim regPath As String
    regPath = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msedge.exe\")
    
    ' エラーがなく、regPathが空でない場合
    If Err.Number = 0 And regPath <> "" Then
        GetEdgePath = regPath
    Else
        ' デフォルトに戻る
        GetEdgePath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
    End If
    
    On Error GoTo 0
End Function

{
    // ファイル拡張子とVBAの関連付け
    "files.associations": {
        "*.bas": "vb",
        "*.cls": "vb", 
        "*.frm": "vb"
    },
    
    // VBAファイルのエンコーディングをShift_JISに設定
    "[vb]": {
        "files.encoding": "shiftjis"
    },
    
    // エディタの表示設定（オプション）
    "editor.fontFamily": "Consolas",
    "editor.fontSize": 13,
    "editor.fontWeight": "normal",
    "editor.lineHeight": 16,
    "editor.letterSpacing": 0.4,
    "editor.tabSize": 4
}