在Office VBA里用对话框选择文件夹

    在网上找了一下，大致有两种方法，第一种方法是使用Windows API 调用显示对话框。第二种方法用“Microsoft shell 控件和自动化 ”对象库。第一种方法可以在Windows的任意版本使用（win95或更晚），而第二种方法需要用户安装了Internet Explorer 5或更高版本。 不过第一种方法中，API不允许你指定开始文件夹，因此还是用了第二种方法，因为指定起始文件夹还是很有用的，而且基本现在一般PC的软件配置还是达到这个要求了的。

这第二种方法首先要增加一个对象库，First you need to set a reference to the "Microsoft Shell Controls And Automation" object library.  In the VBA Editor, go to the Tools menu, choose References, and scroll down to this item and put a check next to it.

然后在标准模块中添加代码如下：

Private Const BIF_RETURNONLYFSDIRS          As Long = &H1

Private Const BIF_DONTGOBELOWDOMAIN     As Long = &H2

Private Const BIF_STATUSTEXT                        As Long = &H4

Private Const BIF_RETURNFSANCESTORS      As Long = &H8

Private Const BIF_EDITBOX                               As Long = &H10 'IE4+ needed

Private Const BIF_USENEWUI                           As Long = &H40 'Win2000, WinME only

Private Const BIF_VALIDATE                           As Long = &H20 '

Private Const BIF_NONEWFOLDERBUTTON      As Long = &H200

Private Const BIF_BROWSEFORCOMPUTER     As Long = &H1000

Private Const BIF_BROWSEFORPRINTER          As Long = &H2000

Private Const BIF_BROWSEINCLUDEFILES        As Long = &H4000

Private Const MAX_PATH                                     As Long = 260

Function BrowseFolder(Optional Caption As String, _

    Optional InitialFolder As String) As String

    Dim SH As Shell32.Shell

    Dim F As Shell32.Folder

    Set SH = New Shell32.Shell

    Set F = SH.BrowseForFolder(0&, Caption, BIF_RETURNONLYFSDIRS, _

        InitialFolder)

    If Not F Is Nothing Then

        BrowseFolder = F.Items.Item.Path

    End If

End Function

然后在某个Sub或者Func里调用

    Dim FName As String

    FName = BrowseFolder("Select a folder", "C:\InitialFolder")

    If FName = "" Then

        MsgBox "You didn’t select a folder"

    Else

        MsgBox "You selected: " & FName

    End If

问题：

1、 Function BrowseFolder返回的是文件夹的path，String类型，因此无法得到文件夹的时间属性，可以改进。

2、 该对话框无法从起始文件夹上溯，不知有什么参数？