VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/09/03(Tue) 09:04
投稿者： MANA
ＵＲＬ：
タイトル： Re^2: ファイルの表示方法

ファイルを
　　Private Const Mpath = "C:\DATA\"
　　Private kakutyosi   As String
　　Private NGNumber    As String
　　Private Nowdate     As String
Private Sub Command1_Click()
    Dim strtextFile As String
    Dim filekensaku As Integer
    Dim i           As Integer
　　Dim strMyfile() As String
    
    Nowdate = Format$(Date, "yyyy-mm-dd")
    kakutyosi = "TxT"
    strtextFile = Dir$(Mpath & Nowdate & "\*.*")
    Do While strtextFile <> ""
        If StrComp(Right$(strtextFile, 3), kakutyosi, 1) = 0 Then
            filekensaku = filekensaku + 1
            ReDim Preserve strMyFile(filekensaku)
            strMyFile(filekensaku) = strtextFile
        End If
        strtextFile = Dir$
    Loop
    For i = 1 To filekensaku        
        If FileLen(Mpath & Nowdate & "\" & strMyFile(i)) = 0 Then
        Else
            List1.AddItem strMyFile(i)
        End If
    Next i
で現在表示させているのですが、これを、strMyFile(i)を
Left(strMyFile(i),11)が同一で、であったら、List1には
FileName = Right(strMyfile(i),11)の一つを表示させ、
Private Sub List1_Click()したら、同一FileNameのstrMyfile(i)を
すべて表示（FileName-1.txt,FileName-2.txt,FileName-3.txtをすべて表示）
させる方法です。
教えてください。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -