Hi Juan,

In that case, try:

Sub Test9a()
Dim fname As Variant
Dim dirName As String

fname = Application.GetOpenFilename

Debug.Print InStrRev(fname, "\")
dirName = Left(fname, InStrRev(fname, "\"))
Debug.Print dirName

End Sub


"Juan Sanchez" wrote in message
...
Thanks Norman, I re-read my own post and found that it was
a confusing one and does not represent what I'm looking
for... Bob's, Andy's and your own suggestions finish in
selecting a FILE, I do not want to retreive a FILE I want
to retreive just a FOLDER where I will later on the sub
save something...

I hope I have explained myself... cheers Juan

-----Original Message-----
Hi Juan,

I think you will find that Bob's suggestion does what you
want.

For example, the following allows you to browse for a
folder and open a
selected file:

Sub Test()
Dim fname As Variant

fname = Application.GetOpenFilename

Workbooks.Open fname

End Sub

---
Regards,
Norman


"Juan Sanchez" wrote in
message
...
Bob/Andy

Thanks!
Both of your suggestions work great, exept that i need
to
get a file selected at the end... It does not allow me
to
select a folder. I found sort of what I'm looking for
he

http://support.microsoft.com/default.aspx?
scid=kb;es;550902

its in spanish, but the code works fine... it messes
with
dll's functions and custom types and some other stuff I
don't understand and have never used...

Simply using the code works great but I don't like to
use
things I don't understand... I never know when they'll
fail...

If you know of something simpler to do the same I would
appreciate it...

Regards
JS


-----Original Message-----
Take a look at the GetOpenFileName method.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the
Purbecks
(remove nothere from the email address if mailing
direct)

"Juan Sanchez" wrote in
message
...
Hi all...

Is there a way in VBA to get a path in string format
out
of a browser dialog box?... similar to an inputbox
that
includes a *browse* button???

Any help is greatly appreciated...

Regards
Juan


.



.