作者smallsafe (拉伤了 QQ)
看板Visual_Basic
标题[VB6 ] 档案怎麽照时间排序?
时间Sat Sep 4 11:38:43 2010
使用物件 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)
1F：→ MOONRAKER:dir()不回传日期时间资讯，所以你要想别的办法取得目录 09/04 17:17
2F：→ MOONRAKER:可以考虑shell()。 09/04 17:17