Как получить путь к файлу - Microsoft Office Word

Mag1str · 22.12.2011, 15:33

Привет.

Есть кнопка. При нажатии открывается диалог wdDialogFileOpen где пользователь указывает какой-либо файл.
Задача - получить путь к этому файлу.

Знаю только что можно получить имя файла:

Код:

Dim filename As String
With Dialogs(wdDialogFileOpen)
  .Display
  filename = .Name
End With
TextBox1.Value = filename

Помогите.

Вождь · 22.12.2011, 19:20

Код:

    ' начальная папка
    ChangeFileOpenDirectory "C:\"
    With Dialogs(wdDialogFileOpen)
        ' начальный файл
        .Name = "*.doc"
        ' диалог
        .Display
        ' конечная папка и файл
        MsgBox Options.DefaultFilePath(wdCurrentFolderPath) & .Name
    End With

Надеюсь, помог

Mag1str · 22.12.2011, 20:24

Цитата:

Надеюсь, помог

Спасибо. Однако. Если имя файла содержит кирилицу, то оно получается в кавычках:

Как бы еще это ограничение обойти?

Mag1str · 22.12.2011, 20:29

О. Прошу прощения. Понял. Дело не в кириллице. А в расширении файла.
Огромное спасибо.

Вождь · 22.12.2011, 20:59

Если не в курсе, то более удобен диалог:
Application.FileDialog(Office.msoFi leDialogFilePicker)

22.12.2011, 15:33	#1
Mag1str Регистрация: 24.08.2011 Сообщений: 7	Как получить путь к файлу Привет. Есть кнопка. При нажатии открывается диалог wdDialogFileOpen где пользователь указывает какой-либо файл. Задача - получить путь к этому файлу. Знаю только что можно получить имя файла: Код: `Dim filename As String With Dialogs(wdDialogFileOpen) .Display filename = .Name End With TextBox1.Value = filename` Помогите.

22.12.2011, 20:59	#5
Вождь Форумчанин Регистрация: 29.09.2008 Сообщений: 378	Если не в курсе, то более удобен диалог: Application.FileDialog(Office.msoFi leDialogFilePicker) Макросы на заказ и готовый пакет - http://mtdmacro.ru/

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как получить путь к файлу	Manya	Общие вопросы Delphi	5	22.05.2012 16:12
Получить путь к файлу	Shouldercannon	Общие вопросы Delphi	2	11.09.2010 09:39
WinForms Получить путь к файлу	Eros	Windows Forms	2	27.05.2010 12:25
Из процесса получить полный путь к ехе файлу.	Ozerich	Общие вопросы Delphi	4	08.08.2008 12:12
Как получить полный путь к файлу, который был послан на принтер?	Stilet	Общие вопросы Delphi	7	29.02.2008 17:49

22.12.2011, 20:29	#4
Mag1str Регистрация: 24.08.2011 Сообщений: 7	О. Прошу прощения. Понял. Дело не в кириллице. А в расширении файла. Огромное спасибо.