FileDialog question

[LeAnn]

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

 

[RB Smissaert]

Try this:

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


RBS

 

[Elceller in distress]

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

fd.InitialFileName = strDir
fd.Show

 

[RB Smissaert]

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

RBS

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

fd.InitialFileName = strDir
fd.Show

 

[LeAnn]

Perfect thanks!

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

fd.InitialFileName = strDir
fd.Show