Visual Basic в Word 2010 — Открыть каталог — Относительный путь

Я создаю текстовый документ, и у меня возникают проблемы с кодом для открытия определенного каталога. По сути, у меня будет куча видеофайлов на USB-накопителе или DVD в отдельных папках, и при нажатии командной кнопки я бы хотел, чтобы соответствующий каталог открывался в окне проводника Windows.

Я провел поиск в Google и нашел следующий код:

ИмяПапки = "c:\windows"

TaskID = Shell("explorer.exe" & FolderName, vbNormalFocus)

Единственная проблема сейчас заключается в том, что мне нужно изменить ссылку на путь с абсолютной на относительную, так как я буду запускать все с USB-накопителя или DVD на нескольких компьютерах.

Я перепробовал каждую возможную итерацию относительных ссылок на пути, но не могу заставить ее работать. Папки — это просто подкаталоги того места, где находится текстовый документ.

У кого-нибудь есть какие-либо подсказки, как я могу изменить приведенный выше код, чтобы он был относительным, а не абсолютным путем?


person Eliminatrix    schedule 13.10.2011    source источник
comment
Почему вы хотите сделать это с помощью MS Word?   -  person CountMurphy    schedule 14.10.2011
comment
Я выполняю задание, и именно так я решил подойти к нему.   -  person Eliminatrix    schedule 14.10.2011


Ответы (1)


Я думаю, что что-то вроде этого может быть тем, что вы ищете:

FolderName = ActiveDocument.Path & "\SubFolder"

TaskID = Shell("explorer.exe " & FolderName, vbNormalFocus)

Предполагая, что ваш документ является активным, в противном случае вам может потребоваться выполнить поиск в коллекции Documents для правильного.

person Hans Olsson    schedule 14.10.2011