一个目录内含文件如下（按文件名排序）：
现希望能在filelistbox里或者listbox里显示如下（按修改时间排序）：
请教如何编写？

[此贴子已经被作者于2017-4-28 22:32编辑过]

记得VB的filelistbox里只能是按文件名排序，不知道有什么办法目录下的文件按时间排序后显示在旁边的listbox里。

已自己解决，在新的list1中已可以排序，且可以用鼠标以拉的方式多选文件。
程序如下：

Private Sub Command1_Click()
'List1的MultiSelect属性选择2-********则为多选
'list1的Sorted属性选择TRUE的话就是排序
For i = 0 To File1.ListCount - 1
List1.AddItem FileDateTime(Dir1.Path & "\" & File1.List(i)) & "      " & File1.List(i)
Next i
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
File1.Refresh
List1.Clear
    Call Command1_Click
End Sub
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

现请教一个问题，如果想点击command2就把list1中选中的复制到list2中，command2怎么编写？

问题我自己已解决。

List2.Clear
Dim z As Integer
For z = 0 To List1.ListCount - 1
If List1.Selected(z) Then List2.AddItem List1.List(z)
Next