vb 遍历文件排序问题

把文件名和文件编号分别保存到两个数组中（也可以用一个二维数组），再对数组进行冒泡排序，最后用LISTBOX显示：
Private Sub GetSfiles(GetFormPath As String)
Dim fileformats
Dim Sfilelist, order
Dim fs, f, f1, fc, s, spfname, i, j, spfn