Excelでフォルダ内文字列検索ソフトを作ってみよう

Private Sub CommandButton1_Click()
    Dim s As String
    Dim sDir As String
    
    s = TextBox1.Value
    If s = "" Then
        MsgBox "検索する文字列を入力してください。", , "フォルダ内文字検索"
        TextBox1.Activate
        Exit Sub
    End If
    
    'フォルダー選択ダイアログ
    sDir = SelectFolder_FileDialog
    If sDir <> "" Then
        ExFolderSearch sDir, 5, 3
    End If
End Sub


下記のVBAコードを追加してください。

'フォルダー選択ダイアログ
Private Function SelectFolder_FileDialog()
    If Application.FileDialog(msoFileDialogFolderPicker).Show Then
        SelectFolder_FileDialog = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
    Else
        SelectFolder_FileDialog = ""
    End If
End Function