Re: Common Dialog Box

From: Niklas Östrergren (niklas.ostergren_at_spray.se)
Date: 12/27/04 

Date: Mon, 27 Dec 2004 09:38:47 +0100

Hi!

You could use this:

' Code starts here ======================================
    Dim strFilePath As String
    Dim strFilter As String

' strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mda, *.mdb)",
_
                    "*.MDA;*.MDB")
' strFilter = ahtAddFilterItem(strFilter, "dBASE Files (*.dbf)", "*.DBF")
    strFilter = ahtAddFilterItem(strFilter, "Excell Files (*.xls)", "*.XLS")
    strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)", "*.TXT")
    strFilter = ahtAddFilterItem(strFilter, "Word Files (*.doc)", "*.DOC")
    strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")

    '=========================================================
    ' Open Dialog OpenSave and get the path for selected file
    '=========================================================
    strFilePath = ahtCommonFileOpenSave(InitialDir:="C:\", _
            Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
            DialogTitle:="Select file to add...")

' Code Ends Here ==================================================

strPath will return the path to the selected file for you to save wherever
you want to.

// Niklas

"SecretCharacter" <henry.tan@tellabs.com> wrote in message
news:uEMdfN#6EHA.4072@TK2MSFTNGP10.phx.gbl...
> Hi all,
> I want to create a command button with the word browse.... so that when i
> click it it will show out a dialg box for us to find the folder location,
> when we selected the folder that we want and click ok, the folder location
> will be iput in a text box. Do anyone knows how to go about doing it?
Thanks
> a zillion in advance. When I try to use the microsoft common dialog
control
> it will prompt out that this control requires a license and don't allow me
> to use it.
>
>
> Happy New Year to all!!!!
> --Secret Character
>
>