Show FileOpen with 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

 

[Jay Freedman]

Remove the "*.*" and leave just the "\" at the end of the .Name.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Cooz]

Thank you Jay, that seems to do the trick.

Remove the "*.*" and leave just the "\" at the end of the .Name.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[mettleurge]

Nope, Doesn't work in Word2010.

Remove the "*.*" and leave just the "\" at the end of the .Name.

--
Regards,
Jay Freedman
Microsoft Word MVP FA
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

Cooz wrote:
> 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