GetOpenFileName

[Tomski]

Hi,

Is there a way to select the folder path as opposed to the file path
using this method.

directory = Application.GetOpenFilename("Excel Files (*.xls), *.xls")

I want to use the save as window, similar to selecting the file path
with the above line. Things is I want the folder/directory path.

Any ideas would be greatly appreciated.

Cheers,

Tom

 

[Ron de Bruin]

Hi

See the second example on this page
http://www.rondebruin.nl/windowsxpzip.htm

You can use the code from that macro

 

[Jim Cone]

Tom,
This gives you the folder for the file selected in GetOpenFileName...
'-------------------------------
Sub FolderFromFilePath()
Dim strLocation As Variant
Dim N As Long

strLocation = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If strLocation = False Then Exit Sub
For N = Len(strLocation) To 1 Step -1
If Mid$(strLocation, N, 1) = "\" Then Exit For
Next

strLocation = Left$(strLocation, N - 1)
MsgBox strLocation
End Sub
'-------------------------
Jim Cone
San Francisco, USA

"Tomski"
<[email protected]>
wrote in message

Hi,
Is there a way to select the folder path as opposed to the file path
using this method.
directory = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
I want to use the save as window, similar to selecting the file path
with the above line. Things is I want the folder/directory path.
Any ideas would be greatly appreciated.
Cheers,
Tom

 

[Tomski]

Nice one guys, thanks for that.