• AS
  • Восстановленный участник
  • На форуме с 20 апреля 2006г.
  • Сообщений: 14
  • Спасибо: 0

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

как из полного пути убрать имя файла
c:\Dir1\Dir2\file.exe => c:\Dir1\Dir2\

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

Re: Как из полного пути убрать имя файла?

а если сразу получить путь, без имени файла?

  • AS
  • Восстановленный участник
  • На форуме с 20 апреля 2006г.
  • Сообщений: 14
  • Спасибо: 0

Re: Как из полного пути убрать имя файла?

как

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

Re: Как из полного пути убрать имя файла?

ThisDrawing.Path

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Как из полного пути убрать имя файла?

ptFull="c:\Dir1\Dir2\file.exe"
ptDir=Replace(ptFull,"file.exe",vbNullString)

  • Gogi
  • Восстановленный участник
  • На форуме с 25 мая 2004г.
  • Сообщений: 136
  • Спасибо: 0

Re: Как из полного пути убрать имя файла?

ptFull="c:\Dir1\Dir2\file.exe"
ptDir=Left(ptFull,InstrRev(ptFull,"\"))

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

Re: Как из полного пути убрать имя файла?

FSO :)

    Dim fso, fld, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fld = fso.GetFolder(folderPath)
    s = fld.Name & " в папке " & fld.ParentFolder
    MsgBox s

Не могу однозначно ответить вернет ли папку из пути содержащие имя файла, т.к. не стоит VB. Но для папок работает на все 100%