Приветствую всех!

Что-то совсем не могу сообразить. Есть папка на сервере, в ней куча подпапок, каждая из которых содержит некоторые файлы. Мне нужно из каждой папки скопировать по два файла, имена которых совпадают с именем папки (расширения соответственно разные) в одну новую папку на сервере. Использую следующий код:

Public Sub OrtoPhoto()

Dim strCurrPatchOut As String, strCurrPatchIn As String, strFolderName As String, strFileName As String, i As Integer, Response
Dim fso As Object

strCurrPatchOut = "\\SERVER\Data\OrtoPhoto_1"
strCurrPatchIn = "\\SERVER\Data\OrtoPhoto_2"

Set fso = CreateObject("Scripting.FileSystemObject")

'fso.CreateFolder strCurrPatchIn

strFolderName = Dir(strCurrPatchOut & "\86*", vbDirectory)    ' Retrieve the first entry.
Do While strFolderName <> ""
    Debug.Print strFolderName
    
    strFileName = Dir(strCurrPatchOut & "\" & strFolderName & "\" & strFolderName & ".*", vbNormal)
    Do While strFileName <> ""
        fso.CopyFile strCurrPatchOut & "\" & strFolderName & "\" & strFileName, strCurrPatchIn & "\" & strFileName, 0
        strFileName = Dir
    Loop

    strFolderName = Dir
Loop

End Sub

На строке

strFolderName = Dir

выдает ошибку:

Run-time error '5': Invalid procedure call or argument

Как это обойти?

http://www.sql.ru/forum/1097323/kopirovanie-faylov