サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2008/02/11 20:57
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[ファイル][ダイアログ][] *
* キーワード：CommonDialog,複数のファイル,cdlOFNAllowMultiselect,cdlOFNExplorer,, *
***********************************************************************************
題 名 ： コモンダイアログ(CommonDialog) を使って複数のファイルを開く
記事No ： 11085
投稿日 ： 2008/01/08(Tue) 23:27
元質問 ： べた
コモン ダイアログ(CommonDialog) を使って複数のファイルを
開こうとしています。
コモンダイアログを表示し、ファイルを選択し、開くを押下した後、
選択したファイルのファイル数やパス名、ファイル名を取得したい
のですが、処理をどのようにしたらよいのですか。
選択されたファイルは、FileNameプロパティで取得できました。
「C:\Documents and Settings\yamada\My Documents file1.xls file2.xls file sample.xls test_data.csv」
の様に表示されました。
-----------------------------------------------------------------------------------
記事No ： 11087
投稿日 ： 2008/01/09(Wed) 07:35
回答者 ： 花ちゃん
-----------------------------------------------------------------------------------
下記ではだめですか？
Private Sub Command1_Click()
With CommonDialog1
.Filter = "すべてのファイル(*.*)|*.*|テキストファイル(*.txt;*.csv)|*.txt;*.csv"
.InitDir = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
.ShowOpen
End With
Dim MyFiles() As String
Dim myString As String
Dim i As Long
myString = CommonDialog1.FileName
MyFiles = Split(myString, vbNullChar)
For i = LBound(MyFiles) To UBound(MyFiles)
Debug.Print MyFiles(i)
Next i
End Sub
 |
