Найти самую нижнюю папку в указанном пути

Пользователь

Сообщений: 58 Регистрация: 17.11.2017

07.11.2019 16:56:11

Всем привет,
снова легкая, но пока для меня нерешаемая задачка:
Есть путь к подпапке произвольной глубины, например C:\ProgramData\Microsoft\Windows\Templates

Нужно присвоить а название последней подпапки. Вопрос как натйти эту самую нижнюю подпапку (здесь Templates)

МатросНаЗебре

Пользователь

Сообщений: 6508 Регистрация: 05.02.2014

07.11.2019 17:01:40

Код
CreateObject("Scripting.FileSystemObject").GetFileName("C:\ProgramData\Microsoft\Windows\Templates")

Пытливый

Пользователь

Сообщений: 4714 Регистрация: 22.12.2012

07.11.2019 17:02:33

Здрасьте.

Можно так:

Код
Sub T() Dim a As String, S As String S = "C:\ProgramData\Microsoft\Windows\Templates" a = Right(S, Len(S) - InStrRev(S, "\")) End Sub

Кому решение нужно - тот пример и рисует.

Юрий М

Модератор

Сообщений: 61038 Регистрация: 14.09.2012

Контакты см. в профиле

07.11.2019 17:10:00

Код
s = "C:\ProgramData\Microsoft\Windows\Templates" a = Split(s, "\")(UBound(Split(s, "\")))

ЕжеВика Пользователь Сообщений: 58 Регистрация: 17.11.2017	#5 07.11.2019 17:17:15 Супер, спасибо всем!