Use common dialog box to create and get directory path

[Mrall]

I have vfp6.0 which doesn't have the getdir() parameter 64 to allow the user to create the directory if it doesn't exist. The activex Common Dialog control for a form allows the user to create a directory if it doesn't exist. But, is there a way to get the path? If so, how is it done?

If it can't be done with a Common Dialog control, is there any routines out there that will do this.

Thanks

 

[Olaf Doschke]

http://www.tek-tips.com/viewthread.cfm?qid=1518158&page=1

And here is the news2news page:

http://www.news2news.com/vfp/?group=91&function=554

And maybe you choose to use the Shell.Application solution from there:

oShell = CREATEOBJECT("Shell.Application")

oFolder = oShell.Application.BrowseForFolder(_screen.HWnd,;
        "Select Folder", 1, "c:\Program Files")

IF NOT ISNULL(oFolder)
        ? oFolder.self.Path
ENDIF

Bye, Olaf.

 

[Mrall]

What is posted above is correct but errors out as is.

Here is the exact code to do a getdir() with a make directory option. (for people who don't have vfp7-9 that has the parameter 64 option)

oShell = CREATEOBJECT("Shell.Application")

oFolder = oShell.Application.BrowseForFolder(0,"Select Folder",0,"C:\")

IF NOT ISNULL(oFolder)
? oFolder.self.Path
ENDIF

oFolder.self.Path returns the path

Thanks all