「名前をつけて保存」ダイアログボックスの表示

めも

   ''' <summary>
    ''' 「名前をつけて保存」ダイアログボックスの表示
    ''' </summary>
    ''' <param name="pFileName">初期値ファイル名</param>
    ''' <param name="pDirectory">初期値フォルダ</param>
    ''' <param name="pFilter">[ファイルの種類]に表示される選択肢</param>
    ''' <param name="pFilterIndex"></param>
    ''' <param name="pTitle">タイトル</param>
    ''' <returns>選択したファイルのフルパス</returns>
    Public Function SaveFileName(ByVal pFileName As String,
                                 Optional ByVal pDirectory As String = "\\tsclient\C\",   '"C:\"
                                 Optional ByVal pFilter As String = "CSVファイル(*.csv)|*.csv;|すべてのファイル(*.*)|*.*",
                                 Optional ByVal pFilterIndex As Integer = 1,
                                 Optional ByVal pTitle As String = "保存先のファイルを選択してください") As String

        'SaveFileDialogクラスのインスタンスを作成
        Dim sfd As New SaveFileDialog()

        '初期値ファイル名
        sfd.FileName = pFileName

        '初期値フォルダ
        sfd.InitialDirectory = pDirectory

        '[ファイルの種類]に表示される選択肢
        sfd.Filter = pFilter
        sfd.FilterIndex = pFilterIndex

        'タイトルを設定する
        sfd.Title = pTitle

        'ダイアログボックスを閉じる前に現在のディレクトリを復元するようにする
        sfd.RestoreDirectory = True
        '既に存在するファイル名を指定したとき警告する
        sfd.OverwritePrompt = True
        '存在しないパスが指定されたとき警告を表示する
        sfd.CheckPathExists = True

        'ダイアログを表示する
        If sfd.ShowDialog() = DialogResult.OK Then
            'OKボタンがクリックされたとき、選択されたファイル名を取得する
            SaveFileName = sfd.FileName
        Else
            'キャンセルのとき
            SaveFileName = ""
        End If

    End Function