"Stan Hilliard" <usenetreplyMS@samplingplansNOTSPAM.com> wrote
> I have a dialog in which I give users an option to select from a list
> box multiple text files to save. They have the option to save
> individual files or to append the text into one file.
>
> What is a good way to allow the user to either
>
> 1) Select/return an existing folder/path to save the files in, or
>
> 2) Create a new folder for the files and return the path.
>
> The individual file names are assigned with code so it is only the
> folder that has to be chosen.
>
> Advice will be appreciated, Stan Hilliard

>
>"Stan Hilliard" <usenetreplyMS@samplingplansNOTSPAM.com> wrote
>> I have a dialog in which I give users an option to select from a list
>> box multiple text files to save. They have the option to save
>> individual files or to append the text into one file.
>>
>> What is a good way to allow the user to either
>>
>> 1) Select/return an existing folder/path to save the files in, or
>>
>> 2) Create a new folder for the files and return the path.
>>
>> The individual file names are assigned with code so it is only the
>> folder that has to be chosen.
>>
>> Advice will be appreciated, Stan Hilliard
>
>
>Here is one method, available for systems with IE 4 or greater:
>
>Private Sub Form_Load()
>  MsgBox GetFolderName
>End Sub
>
>Private Function GetFolderName()
>Dim sa, bff
>   Set sa = CreateObject("Shell.Application")
>   If (Not sa Is Nothing) Then
>      Set bff = sa.BrowseForFolder(0, "Where do you want to save the data?", &H40, "")
>      If (Not bff Is Nothing) Then
>         GetFolderName = bff.ParentFolder.ParseName(bff.Title).Path
>      End If
>   End If
>End Function
>
>
>For more info see MSDN:
>http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/browseforfolder.asp
>
>Additional (advanced features) example at VBNet:
>http://www.vbnet.mvps.org/code/browse/browseadv.htm
>
>HTH
>LFS

>
>"Stan Hilliard" <usenetreplyMS@samplingplansNOTSPAM.com> wrote
>
>> Can you suggest how to make it create a new folder below the one
>> selected?
>
>The browser is a user interface, if anyone were to make a new folder
>using the browser, it would be the user. 
>
>After the bowser  returns, you could then easily make a new folder
>using the standard VB command MkDir.
>
>>
>> For example, I can use GetFolderName to select C:\XXX\YYY\.
>>
>> What is the best way to let the user add a new folder under that
>> selected folder: C:\XXX\YYY\ZZZ\ ?
>
>I see a New Folder button on the dialog, is it not there for you?

>
>"Stan Hilliard" <usenetreplyMS@samplingplansNOTSPAM.com> wrote
>
>> >I see a New Folder button on the dialog, is it not there for you?
>>
>> No. I have a directory tree that I can select a directory in. Below
>> that I have only two buttons: [OK] and [Cancel]
>>
>> If that instance comes from the browser rather than VB, I have two
>> browsers installed: IE 6 SP1, and Firefox 1.0.4. I assume that IE is
>> the operative browser here. My OS is Win98SE.
>>
>> Could it be that your IE browser version is different from mine?
>
>It certainly looks that way.   
>
>Randy Birch has an example of the API route with options to select
>advanced features.  You might try his demo to see what is or is not
>going to be available on your system:
>
>http://www.vbnet.mvps.org/code/browse/browseadv.htm
>
>The New Folder Button apparently came with Shell32.dll Ver. 6.
>I would have thought IE 6 might have upgraded Shell32, as it
>appears that way from here (W2K ships Ver 5, but I've got Ver 6
>installed from somewhere...)  Perhaps it won't be available on
>Win9x?...
>
>For more version info, check here:
>http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/programmersguide/versions.asp
>
>LFS