common dialog box

[inquirer]

I am using a common dialog box on a form and want to get the path to a
directory. I have

Private Sub GetdataDir()
CommonDialog2.InitDir = "C:\my databases\"
CommonDialog2.DialogTitle = "Browse for Datafile directory"
CommonDialog2.Filter = "Data files directory (*.*)|*.*"
CommonDialog2.DefaultExt = ".*"
CommonDialog2.ShowOpen
TextBox26.Value = CommonDialog2.filename
End Sub
Which works OK for getting files but can I use it to get the directory path
only eg c:\my databases\

Also is there a way to allow slection of multiplefiles?

Thanks
Chris

 

[Bill Renaud]

Let the user browse the directories using either of the following code
(GetOpenFilename is probably easier to program):

Application.Dialogs(xlDialogOpen).Show
Application.GetOpenFilename

Then select a file or cancel out of the dialog box. Then simply fetch the
current directory using the following code after the dialog box has been
exited:

strCurrentDirectory = CurDir

Also is there a way to allow slection of multiple files?

Application.GetOpenFilename(MultiSelect:=TRUE)