Private Sub Command1_Click()
List1.Clear
Dim 搜索Filename As String, mypath As String, k As Integer
Dim A As String
A = Text1.Text + "/"
mypath = A
List1.Text = ""
FileName = Dir(mypath & "*.*")
If FileName = "" Then
MsgBox "文件夹无内容!", 262144 + 48, "提示!"
Else
Do While FileName <> ""
List1.AddItem FileName
FileName = Dir
Loop
Call ReSort(List1)
End If
这段代码本身没问题,可是我DIR文件显示在LISTBOX时排序却乱了,比如
排序乱了,要做怎样的处理才能和右边的文件夹排序一样,我也用了冒泡排序法,对前面的单字母排序有效,可是对这种字母+数字再加字母加数字的排序一点办法都没有,跪求排序的代码,文件名字不一定的,比如可以是L233A1-1TA1,或者是M356B1-1D1A,最好按WINDOS文件夹里面的排序一样
List1.Clear
Dim 搜索Filename As String, mypath As String, k As Integer
Dim A As String
A = Text1.Text + "/"
mypath = A
List1.Text = ""
FileName = Dir(mypath & "*.*")
If FileName = "" Then
MsgBox "文件夹无内容!", 262144 + 48, "提示!"
Else
Do While FileName <> ""
List1.AddItem FileName
FileName = Dir
Loop
Call ReSort(List1)
End If
这段代码本身没问题,可是我DIR文件显示在LISTBOX时排序却乱了,比如
排序乱了,要做怎样的处理才能和右边的文件夹排序一样,我也用了冒泡排序法,对前面的单字母排序有效,可是对这种字母+数字再加字母加数字的排序一点办法都没有,跪求排序的代码,文件名字不一定的,比如可以是L233A1-1TA1,或者是M356B1-1D1A,最好按WINDOS文件夹里面的排序一样