'GS[_2_ Wrote:
;1616942']I've always found this much more consistently reliable...
Function GetDirectory$(Optional OpenAt, Optional Msg$)
Dim SH As Object
If Msg = "" Then Msg = "Please choose a folder"
Set SH = CreateObject("Shell.Application").BrowseForFolder( 0, Msg,
&H40 Or &H10, OpenAt)
On Error Resume Next
GetDirectory = SH.Self.Path
On Error GoTo 0
Set SH = Nothing
End Function 'GetDirectory()
--
Garry
Works like a charm! How do I join your fan-list Garry?
I don't know anything about a fan-list, but I do appreciate the
feedback!
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion