请教文件排序问题 - 编程论坛

#2

随风舞2017-04-28 22:36

你把你的规则说清楚。把规则说清楚了，你也知道怎么排序了。

#3

风吹过b2017-04-28 23:16

filelistbox 是默认按物理顺序排

listview 有排序字段设置和方向。自己百度下。需要手动添加数据。

#4

ictest2017-04-28 23:18

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

#5

风吹过b2017-04-29 06:54

你截的图不是 filelistbox
filelistbox 只有一个项目，所以只能按文件名排序或物理顺序。

#6

ictest2017-04-29 12:38

已自己解决，在新的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怎么编写？

#7

ictest2017-04-29 22:11

问题我自己已解决。

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