【ClipGo①】コピーするだけでファイルもURLも即開く！

Sub ClipGo()
    Dim rawInput As String
    Dim dataObj As Object

    ' --- クリップボード取得 ---
    On Error Resume Next
    Set dataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    dataObj.GetFromClipboard
    rawInput = dataObj.GetText(1)
    If rawInput = "" Then rawInput = dataObj.GetText
    On Error GoTo 0

    rawInput = Trim(rawInput)
    If rawInput = "" Then
        MsgBox "クリップボードの情報を読み取れませんでした。" & vbCrLf & _
               "一度メモ帳などに貼り付けてから再度コピーしてみてください。", vbExclamation
        Exit Sub
    End If

    Dim regEx As Object
    Dim matches As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.IgnoreCase = True
    regEx.Global = False

    ' --- ① URLチェック（優先） ---
    regEx.Pattern = "https?://[^\s""<>]+"
    Set matches = regEx.Execute(rawInput)
    If matches.Count > 0 Then
        Dim url As String
        url = Trim(matches(0).Value)
        Shell "cmd /c start """" """ & url & """", vbHide
        GoTo 終了
    End If

    ' --- ② フォルダ／ファイルパスチェック ---
    regEx.Pattern = "([a-zA-Z]:\\|\\\\)[^\r\n""<>|]+"
    Set matches = regEx.Execute(rawInput)
    If matches.Count > 0 Then
        Dim targetPath As String
        targetPath = Trim(matches(0).Value)

        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(targetPath) Or fso.FileExists(targetPath) Then
            Shell "explorer.exe """ & targetPath & """", vbNormalFocus
        Else
            MsgBox "パスが見つかりませんでした。" & vbCrLf & _
                   "【抽出されたパス】" & vbCrLf & targetPath, vbExclamation
        End If
        Set fso = Nothing
        GoTo 終了
    End If

    ' --- ③ どちらも該当なし ---
    MsgBox "URLもパスも見つかりませんでした。" & vbCrLf & _
           "【コピーされている内容の先頭】" & vbCrLf & Left(rawInput, 100), vbInformation

終了:
    Set regEx = Nothing
    Set dataObj = Nothing
End Sub

Add-Type -AssemblyName Microsoft.VisualBasic

$rawInput = Get-Clipboard -Format Text
if ([string]::IsNullOrWhiteSpace($rawInput)) { exit }

$pattern = '([a-zA-Z]:\\|\\\\)[^\r\n"<>|]+'
$match = [regex]::Match($rawInput, $pattern)

if ($match.Success) {
    $targetPath = $match.Value.Trim()

    # まず最後のセグメント内で末尾から1文字ずつ削って探す
    $searchPath = $targetPath
    $lastSlashPos = $searchPath.LastIndexOf('\')

    while ($searchPath.Length -gt $lastSlashPos + 1) {
        if (Test-Path -LiteralPath $searchPath) { break }
        $searchPath = $searchPath.Substring(0, $searchPath.Length - 1)
    }

    # それでも見つからなければ親フォルダをさかのぼる
    if (-not (Test-Path -LiteralPath $searchPath)) {
        $searchPath = Split-Path -Parent $targetPath
        while (-not [string]::IsNullOrEmpty($searchPath) -and -not (Test-Path -LiteralPath $searchPath)) {
            $searchPath = Split-Path -Parent $searchPath
        }
    }

    if (-not [string]::IsNullOrEmpty($searchPath)) {
        $finalPath = $searchPath
        if (Test-Path -LiteralPath $finalPath -PathType Leaf) {
            $finalPath = Split-Path -Parent $finalPath
        }
        Start-Process "explorer.exe" -ArgumentList "`"$finalPath`""
    } else {
        $msg = "指定された場所が見つかりません。`n`n【確認事項】`n・ネットワークドライブは接続されていますか？`n・パスのスペルは正しいですか？`n`n【抽出されたパス】`n$targetPath"
        [Microsoft.VisualBasic.Interaction]::MsgBox($msg, 48, "フォルダを開けませんでした")
    }
}