投稿日 | : 2007/05/16(Wed) 14:58 |
投稿者 | : TOMOE |
Eメール | : |
URL | : |
タイトル | : CommonDialog |
すいませんが、例えば下のような時です。
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "すべてのファイル (*.*)|*.*|"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
==================================================
' ユーザーが選択したファイル名を表示します。 !!!! ここでファイルを表示したいです。
MsgBox CommonDialog1.filename
==================================================
Exit Sub
ErrHandler:
Exit Sub
End Sub