……
Dim dls As List(of String)dls = ftp.GetDetailList(path)If dls.Count < = 0 Then Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行 r("文件") = "暂时没有文件"ElseDim dics As new SortedDictionary(Of string, string)
For Each dl As String In dls
Dim Parts() As String = dl.Split("*")
dics.Add(Parts(1), dl)
Next
For Each dl As String In dics.values
Dim Parts() As String = dl.Split("*")
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
Dim Dot As Integer = parts(0).LastIndexOf(".") '定义.的位置
……