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

投稿日： 2002/08/29(Thu) 11:41
投稿者： 故あって匿名
Ｅメール：
ＵＲＬ：
タイトル： Re: 検索について

こんなカンジでいいですか？
フォームにTextとList足したら動くとは思います。
------------------------------------------------------------
Option Explicit
Option Base 1

Private Const Mpath = "C:\"

Private fList() As Long
Private ItemCount  As Long
Private Nowdate As Date

Private R As Long
Private msg As String

Private Sub Command1_Click()
Dim datetmp As Date

Dim fPath As String
Dim fname As String

Dim i As Long

On Error GoTo ERLABEL

Nowdate = CDate(Text1.Text)
ItemCount = 0
For i = 0 To 31 '遡る日　３１日
    datetmp = Nowdate - i
    fPath = Mpath + Format$(datetmp, "yyyy-mm-dd") + "\"
    fname = Dir$(fPath, vbDirectory)
        
    Do While fname <> ""
        If fname <> "." And fname <> ".." Then
            If (GetAttr(fPath & fname) And vbDirectory) = vbNormal Then
                List1.AddItem fname
                ItemCount = ItemCount + 1
                ReDim Preserve fList(ItemCount)
                fList(ItemCount) = i
            End If
        End If
        fname = Dir
    Loop
Next i

Exit Sub
ERLABEL:
    msg = "日付ちゃうねん。"
    R = MsgBox(msg, vbOKOnly)
End Sub

Private Sub List1_Click()
msg = Format$((Nowdate - fList(List1.ListIndex)), "yyyy-mm-dd") + "\" + L
ist1.Text
R = MsgBox(msg, vbOKOnly, "選択したファイルのパス")
End Sub

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

- Web Forum -