Open directory chooser dialog in specific dir

Question

I've got the following code to display a directory chooser dialog

Function selectOutputFolder(lastPath As String) As String
    Const BIF_NEWDIALOGSTYLE = &H00000040
    Dim objShell As Variant
    Dim objFolder As Variant
    Dim objFolderItem As Variant
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Choose a directory", BIF_NEWDIALOGSTYLE, lastPath)
    If Not (objFolder Is Nothing) Then
        Set objFolderItem = objFolder.Self
        selectOutputFolder = objFolderItem.Path 
    End If
End Function

I was playing around with the 4th parameter of BrowseForFolder which is only a limit for the directory traversal and not to jump into this folder on open.

This is implemented into a lotus script agent, so if you know any alternative in vba or lotusscript, let me know!

which application you run it from?? the shell window you use is for folders only while you ask for 'file chooser'- which of two is your goal? — Kazimierz Jawor, May 27 '13 at 07:13
As I said, it's inside of a LotusScript agent (Lotus Notes) which is similiar to VBA — sascha, May 27 '13 at 07:56
have you seen [that Q+A](http://stackoverflow.com/questions/7270775/shell-browseforfolder-preselected-path) — Kazimierz Jawor, May 27 '13 at 08:00
I'm not really into VBA and LotusScript etc. but I'll give it a try, thanks! — sascha, May 27 '13 at 08:08
Why not use the LotusScript Standard? Look at this in the Lotus Help: stringArray = notesUIWorkspace .SaveFileDialog( directoriesOnly , [title$] , [filters$] , [initialDirectory$] , [initialFile$] ) — Tode, May 27 '13 at 08:54

score 3 · Accepted Answer · answered May 27 '13 at 09:00

3

There is a "Standard" way to do this in LotusScript by using the SaveFileDialog- Method of the NotesUIWorkspace- Class.

'...your sub goes around this
Dim ws as New NotesUIWorkspace
Dim varPaths as Variant
varPaths = ws.SaveFileDialog(  True  , "Choose file" , "" , lastPath )
If not isEmpty( varPaths ) then
  selectOutputFolder = varPaths(0)
End If

answered May 27 '13 at 09:00

Tode

11,795
18
34

Not sure why I used such a complicated way. Works like a charm, thanks – sascha May 27 '13 at 11:36

Open directory chooser dialog in specific dir

1 Answers1