主题：删除文件的问题

比如

Dim files = FileSys.GetFiles("D:\")
If files.Count > 4 Then
    Dim ary1(files.count-1) As String
    'Dim ary2(files.count-1) As String
    Dim i As Integer = 0
    For Each f As String In files
        ary1(i) = f
        i += 1
    Next
    array.sort(ary1)
    For i = 0 To ary1.length-4
        msgbox(ary1(i))
        'FileSys.DeleteFile(ary1(i), 2, 2)
    Next
End If