Последовательное чтение файлов из дирректории

[Kinda]

Добрый день всем!

Необходимо создать список
всех архивов в дирректории
отсортировав их по дате создания,
для формирорвания bat-ника
который их разархивирует.

Для этого написал процедуру:

Sub UzipFilesFromServer()
Dim MyPath, MyName
Dim StrBat As String
Dim i As Integer

i = 4
Open "C:\rcp\unzip.bat" For Output As #1
Print #1, "del c:\rcp\*.dbf"
Print #1, "del c:\rcp\*.htm"
Print #1, "del c:\rcp\*.txt"
Print #1, "del c:\rcp\*.doc"
MyPath = "\\netfire\Comerc_Doc\Þëÿ\rcp\*.zip"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If "01." + Format(FileDateTime("\\netfire\Comerc_Doc\rcp\" + MyName), "mm/yyyy") = _
DataOT(Cells(1, 4), Cells(1, 5)) Then
StrBat = "c:\rcp\pkunzip -e -o \\netfire\Comerc_Doc\rcp\" + MyName + " -d c:\rcp"
CharToOem StrBat, StrBat
Print #1, StrBat
Cells(i, 4) = MyName
Cells(i, 5) = FileDateTime("\\netfire\Comerc_Doc\rcp\" + MyName)
Cells(i, 6) = "01." + Format(FileDateTime("\\netfire\Comerc_Doc\rcp\" + MyName), "mm/yyyy")
Range(Cells(i, 4), Cells(i, 6)).Borders.LineStyle = xlContinuous
i = i + 1
End If
End If
MyName = Dir
Loop
Reset
Shell "c:\rcp\unzip.bat", vbNormalFocus
End Sub

только она записывает архивы в батник отсортированные
по имени, что приводит к ошибкам.
Подскажите как бороться.

[Leon_]

Не вижу в твоей процедуре никакой дополнительной сортировки полученных от Dir имен файлов. А тогда чего же ты ждешь от Dir, которая не производит сама сортировки?
Вот что пишут в Help'e:

Tip Because file names are retrieved in no particular order, you may want to store returned file names in an array, and then sort the array.