how to use msoFileDialogFolderPicker ?

I'm not sure if I'm using this right. The following code lets me choose a
folder, but it does not show what files are in it. This means the user has
to check that the folder is correct (using Explorer or My Computer) before
committing the dialog selection.


Private Sub cmdChangeFolder_Click()

' N.B. Need to write a custom dialog that shows files in folder
' (so user know the bloody thing isn't empty!)

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
pubInputFolder = .SelectedItems(1)
txtFolder = pubInputFolder
End With

End Sub


Is there something else I should be doing?

Thanks!

 

Hi,
to select file (and folder) you can use this function:
http://www.mvps.org/access/api/api0001.htm

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com

"Allen_N" <> wrote in message
news:...
> I'm not sure if I'm using this right. The following code lets me choose a
> folder, but it does not show what files are in it. This means the user
> has
> to check that the folder is correct (using Explorer or My Computer) before
> committing the dialog selection.
>
>
> Private Sub cmdChangeFolder_Click()
>
> ' N.B. Need to write a custom dialog that shows files in folder
> ' (so user know the bloody thing isn't empty!)
>
> With Application.FileDialog(msoFileDialogFolderPicker)
> .AllowMultiSelect = False
> .Show
> pubInputFolder = .SelectedItems(1)
> txtFolder = pubInputFolder
> End With
>
> End Sub
>
>
> Is there something else I should be doing?
>
> Thanks!
>

 

Thanks, Alex!

"Alex Dybenko" wrote:

> Hi,
> to select file (and folder) you can use this function:
> http://www.mvps.org/access/api/api0001.htm
>
> --
> Best regards,
> ___________
> Alex Dybenko (MVP)
> http://alexdyb.blogspot.com
> http://www.PointLtd.com
>
> "Allen_N" <> wrote in message
> news:...
> > I'm not sure if I'm using this right. The following code lets me choose a
> > folder, but it does not show what files are in it. This means the user
> > has
> > to check that the folder is correct (using Explorer or My Computer) before
> > committing the dialog selection.
> >
> >
> > Private Sub cmdChangeFolder_Click()
> >
> > ' N.B. Need to write a custom dialog that shows files in folder
> > ' (so user know the bloody thing isn't empty!)
> >
> > With Application.FileDialog(msoFileDialogFolderPicker)
> > .AllowMultiSelect = False
> > .Show
> > pubInputFolder = .SelectedItems(1)
> > txtFolder = pubInputFolder
> > End With
> >
> > End Sub
> >
> >
> > Is there something else I should be doing?
> >
> > Thanks!
> >
>
>

 

Hi Alex,

I have tried out this code successfully, however, the number of files you
can select is quite limited (less than 25 in my case). I would like to extend
this to up to 200 files. Can you help me out?

Thanks
Gert

"Alex Dybenko" wrote:

> Hi,
> to select file (and folder) you can use this function:
> http://www.mvps.org/access/api/api0001.htm
>
> --
> Best regards,
> ___________
> Alex Dybenko (MVP)
> http://alexdyb.blogspot.com
> http://www.PointLtd.com
>
> "Allen_N" <> wrote in message
> news:...
> > I'm not sure if I'm using this right. The following code lets me choose a
> > folder, but it does not show what files are in it. This means the user
> > has
> > to check that the folder is correct (using Explorer or My Computer) before
> > committing the dialog selection.
> >
> >
> > Private Sub cmdChangeFolder_Click()
> >
> > ' N.B. Need to write a custom dialog that shows files in folder
> > ' (so user know the bloody thing isn't empty!)
> >
> > With Application.FileDialog(msoFileDialogFolderPicker)
> > .AllowMultiSelect = False
> > .Show
> > pubInputFolder = .SelectedItems(1)
> > txtFolder = pubInputFolder
> > End With
> >
> > End Sub
> >
> >
> > Is there something else I should be doing?
> >
> > Thanks!
> >
>
>

 

Hi Gert,
well, not sure i can anything do here, if this is api limitation. I think
you can consider loading files into listbox and let user select there, or
into temp table and select in datasheet form.

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com


"Gert" <> wrote in message
news:...
> Hi Alex,
>
> I have tried out this code successfully, however, the number of files you
> can select is quite limited (less than 25 in my case). I would like to
> extend
> this to up to 200 files. Can you help me out?
>
> Thanks
> Gert
>
> "Alex Dybenko" wrote:
>
>> Hi,
>> to select file (and folder) you can use this function:
>> http://www.mvps.org/access/api/api0001.htm
>>
>> --
>> Best regards,
>> ___________
>> Alex Dybenko (MVP)
>> http://alexdyb.blogspot.com
>> http://www.PointLtd.com
>>
>> "Allen_N" <> wrote in message
>> news:...
>> > I'm not sure if I'm using this right. The following code lets me
>> > choose a
>> > folder, but it does not show what files are in it. This means the user
>> > has
>> > to check that the folder is correct (using Explorer or My Computer)
>> > before
>> > committing the dialog selection.
>> >
>> >
>> > Private Sub cmdChangeFolder_Click()
>> >
>> > ' N.B. Need to write a custom dialog that shows files in folder
>> > ' (so user know the bloody thing isn't empty!)
>> >
>> > With Application.FileDialog(msoFileDialogFolderPicker)
>> > .AllowMultiSelect = False
>> > .Show
>> > pubInputFolder = .SelectedItems(1)
>> > txtFolder = pubInputFolder
>> > End With
>> >
>> > End Sub
>> >
>> >
>> > Is there something else I should be doing?
>> >
>> > Thanks!
>> >
>>
>>