すいません。質問です。今、

　　Nowdate = Format$(Date, "yyyy-mm-dd")
    For a = 0 To 1    
        filekensaku = 0
        Erase strMyfile '配列を削除        
        検索対象日時 = Format(DateAdd("d", -a, Nowdate), "yyyy-mm-dd")
        strtextFile = Dir$(マスターパス & 検索対象日時 & "\*.*")
          
        Do While strtextFile <> ""
            If StrComp(Right$(strtextFile, 3), 検索対象拡張子, 1) = 0 Then            
                filekensaku = filekensaku + 1
                ReDim Preserve strMyfile(filekensaku)
                strMyfile(filekensaku) = strtextFile                
            End If
            strtextFile = Dir$
        Loop
        
        For ii = 1 To filekensaku
            If FileLen(マスターパス & 検索対象日時 & "\" & strMyfile(
ii)) = 0 Then            
            Else
                ファイル名前 = Left(strMyfile(ii), 11)
                Ret = fLBSearch(List1, ファイル名前, 1)
                
                If Ret = -1 Then                                              
                    List1.AddItem ファイル名前                
                End If
            End If
        Next ii
    Next a

で、List1へ表示出来るようになったのはいいのですが、
更新ボタンを押し、List1へ更新された情報がList1のどの
部分に来ているのか不明の状態となっています。(今はsortをtrue）
　これを、List1の一番下に最新のファイルが来るようにし、
更新が完了したら、カーソルは一番下に持っていき、最新
ファイルも一番下に表示するようにするには、どのようにすれば
いいのでしょうか？教えてください♪

すいません。出来ました！！
aを反対からカウントしました♪