Поиск файла в сетевой директории командой из формы - MS Access - Ответ 10701359

Private Sub Кнопка4_Click()
    Dim LResult As String, path, i, s, newname
    path = Array("L:\cam_mtp", "L:\cam_mtp2", "L:\cam_mtp3")
    For i = 0 To UBound(path)
        LResult = Dir(path(i) & "\" & Me.Деталь & ".*")
        If LResult <> "" Then
            s = s & "Файл найден в папке " & path(i) & vbcrlf
            newname = InputBox("Новое имя файла " & Me.Деталь, , LResult)
            If newname <> "" And newname <> path(i) & "\" & LResult Then
                Name path(i) & "\" & LResult As path(i) & "\" & newname
            End If
       End If
       
       'Ищем в подпапках
       s = s & FindSubFolder(path(i),  Me.Деталь)
    Next
    If s = "" Then
        MsgBox "Файл не найден в указанных папках"
    end if
End Sub
 
Public Function FindSubFolder(fold As String, file)
    Dim fso As Object, folder As Object, subfold As Object
    Dim s, c, i, newname
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(fold)
    c = folder.SubFolders.Count
    For Each subfold In folder.SubFolders
        If fso.FileExists(subfold & "\" & file) Then
            newname = InputBox("Новое имя файла " & file, , subfold & "" & file)
            If newname <> "" And newname <> subfold & "\" & file Then
                Name subfold & "\" & file As newname
            End If
            FindSubFolder = FindSubFolder & newname
        End If
    Next
End Function