https://www.planetaexcel.ru/techniques/3/45/ В вышеуказанной статье описано как можно вывести всю информацию по файлам находящимся в папке. А мне нужно тоже самое но вместо прямого пути до файла я лишь хочу что бы макрос отображал путь в папке после выбора в диалоговом окне. Заранее благодарю.
Sub aaa()
Dim v As Variant
'открываем диалоговое окно выбора папки
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Выберите папку или диск"
.Show
On Error Resume Next
Err.Clear
v = .SelectedItems(1)
If Err.Number <> 0 Then
MsgBox "Вы ничего не выбрали!"
Exit Sub
End If
End With
Dim BrowseFolder As Variant
BrowseFolder = CStr(v)
MsgBox BrowseFolder
End Sub