投稿日 | : 2004/01/16(Fri) 00:58 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: コモンダイアログについて |
下記を試して見て下さい。
Private Sub Command1_Click()
Dim FilePath() As String
Dim i As Long
With CommonDialog1
.InitDir = App.Path
.Flags = cdlOFNExplorer Or cdlOFNAllowMultiselect
.ShowOpen
FilePath = Split(.FileName, vbNullChar)
For i = LBound(FilePath) To UBound(FilePath)
Debug.Print FilePath(i)
Next i
End With
End Sub