Здравствуйте. Не могу настроить поиск файлов в папке содержашей другие папки вот примерный код
Sub Move_JPEG_Photoes_New()
Dim SourceFolder As String, DestinationFolder As String, ce As Range
Const InitialPath = "с:\\"

SourceFolder = GetFolderPath("Выберите исходную папку для поиска файлов", InitialPath)
If SourceFolder = "" Then MsgBox "Необходимо указать папку!", vbCritical, "Папка не выбрана": Exit Sub

DestinationFolder = GetFolderPath("Выберите папку, в которую будет производиться копирование", SourceFolder)
If DestinationFolder = "" Then MsgBox "Необходимо указать папку!", vbCritical, "Папка не выбрана": Exit Sub

On Error Resume Next
If Dir(DestinationFolder, vbDirectory) = "" Then MkDir DestinationFolder
For Each ce In Selection.Cells
Filename = Trim$(ce.Value)
If Len(Filename) > 0 Then

Filename = Filename & ".tif"

If Dir(SourceFolder & Filename) <> "" Then
Application.StatusBar = "Перемещение файла " & Filename

FileCopy SourceFolder & Filename, DestinationFolder & Filename
DoEvents
ce.Interior.Color = IIf(Dir(DestinationFolder & Filename) = "", vbRed, vbGreen)
End If
End If
Next
Application.StatusBar = ""
End Sub
Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", Optional ByVal InitialPath As String = "c:\") As String
GetFolderPath = "": PS = Application.PathSeparator
With Application.FileDialog(msoFileDialogFolderPicker)
.ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
End With
End Function

Это не нах а целая проблема я вобще чайник в макросах и прочей просто поставили задачу надо выполнить вот и обратился за помощю на ваш форум Просто в excel есть список файлов (сканы) их надо найти в опред. папке которая содержит в себе еще другие папки и скопировать найденые файлы в другую папку

НЕ получается но все равно спасибо

в стобце указаны имена файлов порядко 1500 шт которые надо найти в папках а их 31шт вот я и хочу наладьть поиск в подпапках