Common Dialog Box won't observe INITDIR value

I have a form with a lot of command buttons all launching the COMMON DIALOG BOX ( names CD1 in my app)
Under each command button there is a different CD1.INITDIR value (for different folders on the drive)
The problem is that the COMMON DIALOG control is not changing to each individual directory. Whatever one I choose first, is the one that each COMMAND BUTTON opens up, regardless of what the CD1.INITDIR value is set to. I even DEBUGd it and watched the value of INITDIR and it IS CHANGING to the right folder, but the DIALOG box keeps opening up to the same folder as the first one I pick.
Help...

On Error GoTo ExitMe
seld = 2
Command2.Value = 0
DoEvents
 
CD1.InitDir = Text37.Text
CD1.Filter = "MP3 Audio File (*.mp3)|*.mp3"
CD1.DefaultExt = "mp3"
CD1.DialogTitle = "Select Audio File"
CD1.CancelError = False
CD1.ShowOpen
 
 
Text2.Text = CD1.FileName
DoEvents
CD1.FileName = ""
 
Exit Sub
ExitMe:
MsgBox "Error " & Err.Number & ": " & Err.Description & vbCrLf & "in Save" & vbCrLf & "The error occured at line: " & Erl, vbAbortRetryIgnore + vbCritical, "Error"

Open in new window

rbendAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

jgbreedenCommented:
where is CD1 declared? If it is outside of this sub, maybe if you move it into this sub it will reload properly since it will go out of scope at the end of the sub.
0
rbendAuthor Commented:
The same code as above is in each COMMAND button, with only 2 things changed.. one being the initial directory of CD1
So I would say it is declared in every button
0
rbendAuthor Commented:
Found my own solution:
This works everytime:

--------------------------------------------------
Function fBrowseForFile(pathto)
' This function opens a common file browsing dialog box
' pointed at the local C:\ drive.  When a file is selected
' this function will return the path and filename in a string.
' If cancel is clicked or the browse window is closed without
' a file being selected, the function returns an empty string.
sBrowsePath = pathto
sBrowseFilter = "All Files|*.mp3"
Set oBrowseDialog = CreateObject("UserAccounts.CommonDialog")
oBrowseDialog.Filter = sBrowseFilter
oBrowseDialog.InitialDir = sBrowsePath
oBrowseDialog.Flags = &H80000 + &H4 + &H8
oBrowseDialog.ShowOpen
fBrowseForFile = oBrowseDialog.FileName
End Function
-----------------------------------------------

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
jgbreedenCommented:
That should do it, the main point being that you are creating it inside the function.  There is probably a
Dim CD1 statement at the form level, moving that inside the function would have the same effect.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.