こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

下のコードの9行目の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

投稿日時 - 2002-08-22 18:03:03

QNo.341264

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

参考までに載せます。
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のところで使うのはどうですか。

投稿日時 - 2002-08-22 19:21:24

ANo.2

こんにちは。maruru01です。

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

投稿日時 - 2002-08-22 18:15:03

ANo.1

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

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

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

投稿日時 - 2002-08-22 18:09:14

あなたにオススメの質問