如何得到打开文件夹的路径(已解决)

todaynew

问题：我想在下面的小程序中实现这样的功能，当打开文件夹又不选择文件时，在文本框中得到这个打开文件夹的路径。

目前我写上去的语句只能得到该程序所在的路径，不是需要的结果。

我用F1看了有关提示，好像说是可以得到文件夹地址，但帮助文件的例子中没有。我实在折腾不出来了，请朋友们帮忙看看怎么解决。



Function GetFolder() As String
    Dim dlgOpen As FileDialog
    Dim i As Long, j As Long
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = True
        .Show
    End With
    i = dlgOpen.SelectedItems.Count
    If i > 0 Then
        GetFolder = ""
        For j = 1 To i - 1
            GetFolder = GetFolder & dlgOpen.SelectedItems(j) & ";"
        Next
        j = i
    GetFolder = GetFolder & dlgOpen.SelectedItems(j)
    Else
    GetFolder = CurrentProject.Path   '词句有错误，得到的是该程序所在的文件夹。如何得到打开的文件夹？
    End If
    Set dlgOpen = Nothing
End Function
(算法函数_API_系统-相关文章技巧链接)：
Access 如何得到打开文件夹的路径(已解决)

koutx

这样的例子一搜好多

ACMAIN_CHM

http://www.accessbbs.cn/bbs/view ... 8340&highlight=




******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .