投稿日 | : 2002/09/12(Thu) 14:23 |
投稿者 | : MANA |
URL | : |
タイトル | : 更新順序 |
すいません。質問です。今、
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の一番下に最新のファイルが来るようにし、
更新が完了したら、カーソルは一番下に持っていき、最新
ファイルも一番下に表示するようにするには、どのようにすれば
いいのでしょうか?教えてください♪