有目录、文件控件吗？

landie

能象VB一样做出目录、文件列表出来吗？

cg1

关于此主题请参考：

    如何用API实现comdlg控件的功能(打开文件夹窗口)？《API》

    http://access911.net/index.asp?u1=a&u2=74FAB01E

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－个性化的access911.net（四）本站新增手机 WAP 站点《其他》http://access911.net 作为中国ACCESS站点中第一个推出自主 RSS 定阅的站点，近期又将推出中国第一个讨论 ACCESS 应用的 WAP 站点，现在已经开始建站测试，请用你的手机访问 http://access911.net/wap，我也需要大量适合 WAP 手机访问的 ACCESS 原创文章，如有投稿请发MAIL 至 access911@etang.com。请注意，上述 WAP 站点目前只能使用手机 GPRS 拨号上 WAP 网以后浏览，暂时还未开发 PC 机上使用的界面，如果您要用 PC 机浏览本 WAP 网站，请与 cg1 本人联系。

阿罗

在新的office版本中（officeXP及以上，我想），可以引用microsoft office 11.0(10.0) object library来做这些事情。

Private Sub btnFileDlg_Click()

'这里演示的是如何用microsoft office 11.0 object library

'里的fileDialog对象打开文件选择对话框

    Dim fileDlg As Office.FileDialog

    Dim varFile As Variant

    Set fileDlg = Application.FileDialog(msoFileDialogFilePicker)

    With fileDlg

    .AllowMultiSelect = False '只允许选择一个文件

    .Title = "选择一个文件"

    .Filters.Clear

    .InitialFileName = CurrentProject.Path

    .Filters.Add "mdb文件", "*.mdb",1

    .Filters.Add "adp文件", "*.adp",1

    .Filters.Add "所有文件", "*.*"

    If .Show = True Then

        For Each varFile In .SelectedItems

            Me.txtFilePath = varFile

        Next

    End If

    End With

    Set fileDlg = Nothing

End Sub