• kp
  • Восстановленный участник
  • На форуме с 17 марта 2005г.
  • Сообщений: 254
  • Спасибо: 0

Тема: Как в VBA получить имя файла из строки полного пути к нему?

Как в VBA получить имя файла из строки полного пути к нему?
В Лиспе есть vl-filename-base, а как такое провернуть в VBA? Подскажите, PLS

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Как в VBA получить имя файла из строки полного пути к нему?

А кто его знает шо такое vl-filename-base
У нас :D через Doc.Name
Ну а из строки с полным путем к фаулу, ессно через строковый функции, inStr(inStrRev), Mid, и т.д. Находишь позишн последнего слэша, и через Left получаешь строку после него.
Поняно?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как в VBA получить имя файла из строки полного пути к нему?

MsgBox = Dir(FullPath)

  • kp
  • Восстановленный участник
  • На форуме с 17 марта 2005г.
  • Сообщений: 254
  • Спасибо: 0

Re: Как в VBA получить имя файла из строки полного пути к нему?

LeonidSN, спасибо

  • Михаил
  • Восстановленный участник
  • На форуме с 9 марта 2008г.
  • Сообщений: 55
  • Спасибо: 0

Re: Как в VBA получить имя файла из строки полного пути к нему?

Function FlExtractFileName(FileName As String) As String
' вытаскивает название файла с расширением, из полного имени файла, т.е из c:\1.xxx получит 1.xxx
    Dim stpos As Long
    stpos = InStrRev(FileName, "\")
    FlExtractFileName = Right$(FileName, Len(FileName) - stpos)
End Function
Function FlGetProjectName() As String
' узнать полное имя проекта
    Dim app As AcadApplication
    Set app = ThisDrawing.Application
    FlGetProjectName = app.VBE.ActiveVBProject.FileName
End Function

  • kp
  • Восстановленный участник
  • На форуме с 17 марта 2005г.
  • Сообщений: 254
  • Спасибо: 0

Re: Как в VBA получить имя файла из строки полного пути к нему?

> Михаил
СПАСИБО!

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как в VBA получить имя файла из строки полного пути к нему?

> Михаил
Код работает на 50%

  • Boxa
  • Восстановленный участник
  • На форуме с 16 августа 2005г.
  • Сообщений: 60
  • Спасибо: 0

Re: Как в VBA получить имя файла из строки полного пути к нему?

Такой код всегда работает и всегда на 100%

Sub asfff_01()
    Dim path_0 As String
    Dim temp As Variant
    Dim files_0 As String
        path_0 = "c:\dhhhf\jjjtur\01.txt"
        temp = Split(path_0, "\")
        files_0 = temp(UBound(temp))
End Sub

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как в VBA получить имя файла из строки полного пути к нему?

> Boxa
Код работает на 50%
:) поверь мне :)

  • Boxa
  • Восстановленный участник
  • На форуме с 16 августа 2005г.
  • Сообщений: 60
  • Спасибо: 0

Re: Как в VBA получить имя файла из строки полного пути к нему?

SmeL опиши пожалуйста случай в котором приведенный мной код дает осечку... мне действительно интересно, так как мне видится тут все логично: строка пути разбивается в массив, после чего берется последний элемент массива, значение которого это имя файла.

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как в VBA получить имя файла из строки полного пути к нему?

Данный путь коректный для Windows "c:\dhhhf\jjjtur/01.txt", извлеки из него имя файла

  • Boxa
  • Восстановленный участник
  • На форуме с 16 августа 2005г.
  • Сообщений: 60
  • Спасибо: 0

Re: Как в VBA получить имя файла из строки полного пути к нему?

согласен, не извлечет.
Хотя с другой стороны система при запросе не возвращает такой путь.