Excelで画像表示ソフトを作ってみよう

Option Explicit

Private sMyBookPath As String

Private Function SelectFolder_FileDialog(iniDir As String) As String
    Dim s1 As String
    
    'フォルダ選択ダイアログ
    With Application.FileDialog(msoFileDialogFolderPicker)
        'タイトル
        .Title = "フォルダを選択してください"
        '初期フォルダ
        .InitialFileName = iniDir
        If .Show = -1 Then
            '選択された
            s1 = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
            If Right$(s1, 1) <> "\" Then s1 = s1 + "\"
            SelectFolder_FileDialog = s1
        Else
            SelectFolder_FileDialog = ""
        End If
    End With
End Function

'「参照」ボタン
Private Sub CommandButton1_Click()
    Dim s1 As String
    Dim sdir As String
    
    If TextBox1.Text = "" Then
        sdir = sMyBookPath
    Else
        sdir = TextBox1.Text
    End If
    'フォルダ選択ダイアログ
    s1 = SelectFolder_FileDialog(sdir)
    If s1 <> "" Then
        TextBox1.Text = s1
    End If
End Sub

Private Sub UserForm_Initialize()
    'このファイルがあるフォルダを取得
    sMyBookPath = ActiveWorkbook.Path
    If Right$(sMyBookPath, 1) <> "\" Then sMyBookPath = sMyBookPath + "\"
End Sub