Hi,

I was wondering, is there a way to retreive only a path using the showopen
window?

I use the following sub:

Private Sub CreateMDSFilesButton_Click()
On Error GoTo err
CommonDialog1.DialogTitle = "Set MDS save directory"
CommonDialog1.Filename = ""
CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
Call assignparam("MDS Directory:", CurDir & "\") ' this write the directory
name in a cell where I can retreive it later
Call CreateMDSfiles ' this creates the new files in 'CurDir\'
Exit Sub

err:
If err.Number = 32755 Then Exit Sub ' cancel button has been used : nothing
needs be done
MsgBox (err.Number)
Resume Next
End Sub


Here is what happens: I want to create a number of files in a directory.
If there are files in the directory then my sub works, the problem comes
when there are no files at all in the directory or a create a new one (using
rightclicknew folder): the window will not close if a file is not
selected. A workaround is to create empty txt file (using
rightclicknewtextfile)but I would not call this a nice solution.

Any idea would be more then welcome.

Thanks,

Didier