タイトル : Re: CommonDialog に代わる コマンドを教えてください。 投稿日 : 2008/09/02(Tue) 15:31 投稿者 : もょもと
''' <summary> ''' ファイルパス指定ダイアログ ''' </summary> ''' <remarks></remarks> Private Sub OpenFileDialog() '*********************************** '変数・定数の宣言 '*********************************** 'OpenFileDialogのインスタンスの生成 Dim OpenFileDialog As New OpenFileDialog() '*********************************** '処理開始 '*********************************** 'ダイアログボックスの設定 OpenFileDialog.Title = "読み込み元ファイルパス" 'ダイアログのタイトルの設定 OpenFileDialog.Filter = "テキスト ファイル|*.txt;*.log|すべてのファイル|*.*" 'ファイルのフィルタの設定 OpenFileDialog.FilterIndex = 2 'ファイルの種類の初期設定を2番目に設定 OpenFileDialog.RestoreDirectory = True 'ダイアログボックスを閉じる前に現在のディレクトリを復元する 'ダイアログを表示し、戻り値が[OK]の場合、選択したファイル名をテキストボックスに表示 If OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then Me.TextBox1.Text = OpenFileDialog.FileName End If 'インスタンスの破棄 OpenFileDialog.Dispose() End Sub こんな感じでどうですか? |