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

タイトル Re: コモンダイアログ(CommonDialog) を使って複数のファイルを開く
投稿日: 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

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

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