Show the file open dialog displaying a specified location

[Cooz]

Hi everyone,

How do I - in Word 2003 - show the file open dialog displaying a specified
location, for example the Startup path? The following examples won't work;
the only thing they accomplish is to display "All files (*.*)" - which they
should.

Sub FileOpenStartUp()
Dim dlgFileOpen As Dialog

Set dlgFileOpen = Application.Dialogs(wdDialogFileOpen)
With dlgFileOpen
.Name = Application.Options.DefaultFilePath(wdStartupPath) &
"\*.*"
.Show
End With
Set dlgFileOpen = Nothing

End Sub

---

Sub FileOpenStartUp()
Dim dlgFileOpen As Dialog
Dim strDocPath As String

strDocPath = Application.Options.DefaultFilePath(wdDocumentsPath)
Application.Options.DefaultFilePath(wdDocumentsPath) =
Application.Options.DefaultFilePath(wdStartupPath)

Set dlgFileOpen = Application.Dialogs(wdDialogFileOpen)
With dlgFileOpen
.Name = "*.*"
.Show
End With
Set dlgFileOpen = Nothing

Application.Options.DefaultFilePath(wdDocumentsPath) = strDocPath
End Sub

---

Sub FileOpenStartUp()
Dim dlgFileOpen As Dialog
Dim strCurrentDir As String

strCurrentDir = CurDir
ChDrive Application.Options.DefaultFilePath(wdStartupPath)
ChDir Application.Options.DefaultFilePath(wdStartupPath)

Set dlgFileOpen = Application.Dialogs(wdDialogFileOpen)
With dlgFileOpen
.Name = "*.*"
.Show
End With
Set dlgFileOpen = Nothing

ChDrive strCurrentDir
ChDir strCurrentDir
End Sub

---

Any help here will be greatly appreciated.

Thank you,
Cooz

 

[Graham Mayor]

Answered in your earlier thread?

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>