MeatKeenEachRow

using System;
using System.IO;
using System.Net;
using System.Net.Sockets;
using System.Text;

class Program
{
    static void Main()
    {

MeatKeenEachRow

Option Explicit

' A列をダブルクリックでVisualDiffToSheetを呼び出す
Private Sub Worksheet_BeforeDoubleClick( _
    ByVal Target As Range, Cancel As Boolean)

    If Target.Column = 1 _
       And Me.Cells(Target.Row, 2).Value = "File" Then
        Dim f1 As String, f2 As String
        f1 = Me.Cells(Target.Row, "I").Value

MeatKeenEachRow

Option Explicit

' A列をダブルクリックでVisualDiffToSheetを呼び出す
Private Sub Worksheet_BeforeDoubleClick( _
    ByVal Target As Range, Cancel As Boolean)

    If Target.Column = 1 _
       And Me.Cells(Target.Row, 2).Value = "File" Then
        Dim f1 As String, f2 As String
        f1 = Me.Cells(Target.Row, "I").Value

MeatKeenEachRow

Option Explicit

'------------------------------------------------
'■ メイン：B2/B3のパスを読み込み、ツリー比較を行う
Sub CompareFolders()
    Dim folder1 As String, folder2 As String
    Dim fso     As Object, ws As Worksheet
    Dim outRow  As Long

    Set ws = ThisWorkbook.ActiveSheet