Получить адрес на файл убрав ThisWorkbook.Path

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

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

26.04.2016 08:05:30

Доброго времени суток ребят

Подскажите пожалуйста с таким вопросом
Я получаю в текстбокс командой Application.GetOpenFilename ссылку на файл , вот так

Код
UserForm1.TextBox3.Value = Application.GetOpenFilename

получаю путь "C:\Users\fanat\Desktop\Новая папка\Новая папка\1.jpg" ,
где "C:\Users\fanat\Desktop\Новая папка" это путь где лежит сам проект , то есть ThisWorkbook.Path , как изменить код на получение ссылки на файл чтобы в текстбокс выводился только путь до файла без ThisWorkbook.Path, то есть из данного примера нужно чтобы ,грубо говоря , было примерно так ( отображу математически , программно не знаю как это сделать ) :

UserForm1.TextBox3.Value = Application.GetOpenFilename - ThisWorkbook.Path = "\Новая папка\1.jpg" , получаем ссылку на файл , отнимаем от этой ссылки корневой путь проекта , получаем голую ссылку на файл

fanat Пользователь Сообщений: 87 Регистрация: 01.01.1970	#2 26.04.2016 08:13:51 В моем понимании это выглядит так , задаем текстбокс как строку , thisworkbook.path как переменную , затем ищем в этой строке эту переменную ,находим , удаляем , но знания мне не позволят сделать подобного (

egonomist

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

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

26.04.2016 08:29:40

Код
x=Application.GetOpenFilename y=ThisWorkbook.Path ссылка=right(x, len(x)-len(y))

Пытливый

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

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

26.04.2016 09:33:07

Можно как-то так:

Код

Sub t_160()
Dim strS As String
strS = "C:\Users\fanat\Desktop\Новая папка\Новая папка\1.jpg"
strS = right(strS, Len(strS) - InStrRev(strS, "\", InStrRev(strS, "\") - 1) + 1)
End Sub

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

Sanja

Модератор

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

26.04.2016 09:44:57

Цитата
fanat написал: получаем голую ссылку на файл

Код

Sub Base_Name()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
fOpen = Application.GetOpenFilename
MsgBox "Имя файла: " & FSO.GetBaseName(fOpen) & _
    "." & FSO.GetExtensionName(fOpen)
End Sub

Согласие есть продукт при полном непротивлении сторон

Hugo Пользователь Сообщений: 23795 Регистрация: 22.12.2012	#6 26.04.2016 10:15:57 ThisWorkbook.Path - это не путь к той книге, которую выбрали в диалоге! Но как частный случай - оно может и совпасть.