We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

Common Dialog Box won't observe INITDIR value

rbend
rbend asked
on
Medium Priority
963 Views
Last Modified: 2013-11-25
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

Comment
Watch Question

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.

Author

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
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
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.
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.