tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル コモンダイアログ(CommonDialog) を使って複数のファイルを開く
投稿日: 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」
の様に表示されました。

ファイル毎にパス名+ファイル名かと思っていたのですが、上記の
通り、最初にパス名来て、その後、選択したファイル名が来ています。
ファイル名とファイル名の区切りは、スペースではなく、null 文字 で区切
られた文字列として取得されるとヘルプにあったのですが、見た感じが
スペースなのですが、

期待する結果としては、
選択したファイルのファイル数
選択したファイルのパス名とファイル名
を取得したのです。
この場合、
 ファイル数:4
 パス名  :C:\Documents and Settings\yamada\My Documents
 ファイル名:file1.xls
      :file2.xls
      :file sample.xls (これだけ、ファイル名にスペースが含まれる〜
      :test_data.csv

CommonDialog1.Filter = "すべてのファイル(*.*)|*.*|テキストファイル(*.txt;*.csv)|*.txt;*.csv"
CommonDialog1.InitDir = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CommonDialog1.ShowOpen

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。