| 投稿日 | ： 2003/01/14(Tue) 19:59 |
| 投稿者 | ： nobu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: コモンダイアログのキャンセル時のリストについて |
下記の様にして見るとかでは？
Dim strfilename As String
Private Sub a_cmd_Click()
On Error GoTo Cancel_
With CommonDialog1
.FileName = ""
.Filter = "すべてのファイル(*.*)"
.InitDir = "c:\WINDOWS\デスクトップ\"
.ShowOpen
strfilename = .filename
End With
If Trim(strfilename) <> "" Then
FileName_lst.AddItem strfilename
end if
Cancel_:
End Sub