vb.net 101号室:ファイルダイアログを開く

Kappo

プログラムでファイルを開きたい時って結構多くありません？
プログラム内にコーディングするのが手っ取り早いですが、後々汎用性が無くなってしまいますよね！
この部屋では、.netの「OpenFileDialog」クラスを使ってファイルダイアログを開き、ファイルを指定してフルパスやファイル名を取得する方法を書いてます
使ってみてね！！！
また、一番したの方にコメント欄があるからよかったら質問・感想などメッセージ入れてください

フォームの編集
プログラム

フォームの編集

フォームにボタンコントロールとラベルコントロールを配置しますボタンコントロール：名前=Button1ラベルコントロール：名前=Label1

プログラム

Button1コントロールのブログラム

ファイルダイアログを表示します

▼Button1コントロールのブログラム▼

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim fDialog As OpenFileDialog    'OpenFileDialogクラスの宣言

    fDialog = New OpenFileDialog()

    '----------------------------------------
    '各初期設定

    '-----------------------------
    'ファイル名の指定
    '「ファイル名」で表示される文字列を指定する
    ’※開くファイル名が決まっていたら設定した方が楽ですよ
    'fDialog.FileName = "default"

    '-----------------------------
    '表示されるフォルダの指定
    '指定しない時は、現在のディレクトリが表示される
    ’※開くファイルの場所が決まっていたら設定した方が楽ですよ
    fDialog.InitialDirectory = "C:\Sample"

    '-----------------------------
    '[ファイルの種類]に表示される選択肢の指定
    '指定しないと全てのファイルが表示される
    ’※開くファイルの拡張子が決まっていたら設定した方が楽ですよ
    fDialog.Filter = "テキストファイル(*.txt)|*.txt"

    '-----------------------------
    'ダイアログタイトルの設定
    ’※オペレータに判りやすくする為にもしてした方がいいと思う
    fDialog.Title = "開くファイルを選択してください"

    '----------------------------------------
    'ダイアログを表示する
    If fDialog.ShowDialog() = DialogResult.OK Then
        '開くボタンがクリックされたとき、選択されたファイル名を表示する

        '選択されたファイル名（フルパス）をLabel1に表示する
        Label1.Text = fDialog.FileName

    Else

        Call MsgBox("ファイル指定が中断されました。", MsgBoxStyle.Information +     MsgBoxStyle.OkOnly, "メッセージ")

    End If

    '----------------------------------------
    '後片付け
    fDialog = Nothing

    '----------------------------------------

End Sub

フォームのButton1を押したら、下図ファイルダイアログを表示をさせる