Using commondialog.showopen

  • Thread starter Thread starter Didier Poskin
  • Start date Start date
D

Didier Poskin

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
rightclick>new> folder): the window will not close if a file is not
selected. A workaround is to create empty txt file (using
rightclick>new>textfile)but I would not call this a nice solution.

Any idea would be more then welcome.

Thanks,

Didier
 
Roedd said:
Hi,

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

I think you want the BrowseFro Folder dialog:
http://www.cpearson.com/excel/BrowseFolder.htm

--
Rob

http://www.asta51.dsl.pipex.com/webcam/

This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.
 
Hi,

Thanks, not the way I expected it... but fine anyway.

Thanks again,

Didier
 
Hi,

Thanks a lot for your effective answer.
There are so many different ways to get what you want...in VBA
I still feel like I don't know anything but I keep on working.

Thanks again for your help,

Didier

Didier
 
Back
Top