Office中国论坛/Access中国论坛

标题: 有目录、文件控件吗？ [打印本页]

作者: landie 时间: 2005-3-6 05:14
标题: 有目录、文件控件吗？
能象VB一样做出目录、文件列表出来吗？

作者: cg1 时间: 2005-3-6 08:07
关于此主题请参考：

如何用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 本人联系。

作者: 阿罗 时间: 2005-3-7 23:45
在新的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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)