[VB6 ] 檔案怎麼照日期時間排序?
使用物件 command button 和 list box
我想搜尋檔案後,依照日期和時間排序,請問要怎麼寫呢?
我的程式
Dim p, As String
p = Dir("C:\*.*")
Do Until p = ""
DoEvents
List1.AddItem p
p = Dir
Loop
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
Print List1.List(i)
End If
Next
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.204.215.155
※ 編輯: smallsafe 來自: 123.204.215.155 (09/04 11:40)
→
09/04 17:17, , 1F
09/04 17:17, 1F
→
09/04 17:17, , 2F
09/04 17:17, 2F