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