I have the following code:

Dim fd As FileDialog
Dim strDir As String
strDir = "\\my network path\"
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Show
fd.InitialFileName = strDir

When I click on the button that calls the code it opens the default file
location. If I click it again it will go to the designated directory. What
am I doing wrong?

Thanks
LeAnn

Try this:

strDir = "\\my network path\"
ChDir strDir


RBS

"LeAnn" wrote in message
...
I have the following code:

Dim fd As FileDialog
Dim strDir As String
strDir = "\\my network path\"
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Show
fd.InitialFileName = strDir

When I click on the button that calls the code it opens the default file
location. If I click it again it will go to the designated directory.
What
am I doing wrong?

Thanks
LeAnn

Try moving the fd.show after the fd.initalfile name statement.

fd.InitialFileName = strDir
fd.Show




"LeAnn" wrote:

I have the following code:

Dim fd As FileDialog
Dim strDir As String
strDir = "\\my network path\"
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Show
fd.InitialFileName = strDir

When I click on the button that calls the code it opens the default file
location. If I click it again it will go to the designated directory. What
am I doing wrong?

Thanks
LeAnn

Yes that is better, didn't spot that one.

RBS


"Elceller in distress" wrote
in message ...
Try moving the fd.show after the fd.initalfile name statement.

fd.InitialFileName = strDir
fd.Show




"LeAnn" wrote:

I have the following code:

Dim fd As FileDialog
Dim strDir As String
strDir = "\\my network path\"
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Show
fd.InitialFileName = strDir

When I click on the button that calls the code it opens the default file
location. If I click it again it will go to the designated directory.
What
am I doing wrong?

Thanks
LeAnn

Perfect thanks!

"Elceller in distress" wrote:

Try moving the fd.show after the fd.initalfile name statement.

fd.InitialFileName = strDir
fd.Show




"LeAnn" wrote:

I have the following code:

Dim fd As FileDialog
Dim strDir As String
strDir = "\\my network path\"
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Show
fd.InitialFileName = strDir

When I click on the button that calls the code it opens the default file
location. If I click it again it will go to the designated directory. What
am I doing wrong?

Thanks
LeAnn