ファイルのパス名をダイアログボックスから選びたい

質問

下のコードの９行目のOPEN " "の中（ファイルのパス名が入る）を、ダイアログボックスから選べるようにするにはどうすればよいのでしょうか。至急、回答をお願いします。

Private Sub Command1_Click()
Dim FileNo As Integer 'ファイル番号
Dim strDAT As String '行データ
Dim strELM As String 'マルチステートメントの分解
Dim pot1 As Integer, pot2 As Integer '『:』、『OPEN』の位置
Dim pDB1 As Integer, pDB2 As Integer '『"』の位置(前と後)

FileNo = FreeFile
Open " " For Input As #FileNo 'ファイルをセットする

While Not EOF(FileNo)
Line Input #FileNo, strDAT '行データを読み込む

strDAT = strDAT & ":"
pot1 = InStr(strDAT, ":") 'マルチステートメント対応
While pot1 > 0
strELM = Left(strDAT, pot1) 'マルチステートメントの分解

pot2 = InStr(strELM, "OPEN") 'OPENの位置
While pot2 > 0
pDB1 = InStr(strELM, Chr(&H22)) '『"』の位置
If pDB1 > 0 Then '前の『"』の位置
pDB2 = InStr(pDB1 + 1, strELM, Chr(&H22))
If pDB2 > 0 Then '後ろの『"』があったら
RichTextBox1.Text = RichTextBox1.Text & _
Mid(strELM, pDB1 + 1, pDB2 - pDB1 - 1) & vbCrLf
End If
End If

pot2 = InStr(pDB2 + 1, strELM, "OPEN") 'OPENはもうないか
Wend

'次の命令文
strDAT = Mid(strDAT, pot1 + 1)
pot1 = InStr(strDAT, ":")
Wend
Wend
End Sub

回答No.3

imogasi

参考までに載せます。
Form_DblClick()
Form1.CommonDialog1.InitDir = "c:\My Documents"
Form1.CommonDialog1.Filter = ".xls"
Form1.CommonDialog1.ShowOpen
fn = Form1.CommonDialog1.FileName
MsgBox fn
End Sub
このfnをOpenのところで使うのはどうですか。

回答No.2

maruru01

こんにちは。maruru01です。

コモンダイアログコントロールを使えば出来ます。
"コモンダイアログ"などで検索してみて下さい。
あと、ヘルプでも。

回答No.1

taka_tetsu

パスでいいんですよね？ファイル名じゃなくて。

こちらをどうぞ
http://www.okweb.ne.jp/kotaeru.php3?q=305679

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=305679