Office中国论坛/Access中国论坛

标题: 新版"文件对话框" [打印本页]

作者: 咱家是猫 时间: 2010-12-4 10:18
标题: 新版"文件对话框"
应一些网友要求(要求加入多行文件类型筛选),而对原来写的文件对话框进行了改版,现共享如下:

Function GetFileName(Optional ByVal DialogType As MsoFileDialogType = msoFileDialogFilePicker, Optional ByVal TitleStr As String = "打开", Optional ByVal FilterStr As String = "所有文件(*.*)", Optional ByVal MultiSelect = False, Optional ByVal PathStr As String) As String
'此函数需要引用Microsoft Office 12.0(或14.0) Object Library
'参数说明：
'DialogType 打开文件对话框的类型
'msoFileDialogFilePicker 文件对话框
'msoFileDialogFolderPicker  文件夹对话框
'msoFileDialogOpen       打开...
'msoFileDialogSaveAs       另存为...
'TitleStr 对话框标题文字
'FilterStr  文件类型筛选条件
'本条件只对打开文件有效
'如果要设置此字符串,请遵循以下格式("条件文字描述(类型设定)),多条件之间用";"号隔开.如:
'"BMP格式文件(*.BMP);JPG格式文件(*.JPG);TXT文件(*.TXT)"
'MultiSelect 是否多选
'设置文件对话框是否可以多选(基本上很少用)
'PathStr 默认路径
'如果未指定,则默认为当前实例路径
'作者说明:以上各参数都已经设置了可缺少默认的,(意思是:你常用的打开一个文件夹,选择一个文件功能是可以一个参数都不用输入的)
'最简单的你可以这么用:FileName=GetFileName()
'最复杂的你可以这么用(哈哈,够长)如下:
'FileName = GetFileName(msoFileDialogFilePicker, "打开图片文件", "BMP格式图片(*.bmp);JPG格式图片(*.jpg);GIF格式图片(*.gif)", False, "D:\Documents\")
'作者:咱家是猫 QQ 130036500
'日期:2010年12月04日

On Error Resume Next
Dim dlgOpen As FileDialog
Dim I As Integer, S As String, A As String, B As String
Set dlgOpen = Application.FileDialog(DialogType)
With dlgOpen
      .title = TitleStr
      .Filters.Clear
      For I = 0 To UBound(Split(FilterStr, ";", -1), 1)
         S = Split(FilterStr, ";", -1)(I)
         A = Left(S, InStr(S, "(") - 1)
         B = Mid(S, InStr(S, "(") + 1)
         B = Left(B, InStr(B, ")") - 1)
         .Filters.Add A, B
      Next
      .AllowMultiSelect = MultiSelect
      If IsMissing(PathStr) Then
         .InitialFileName = CurrentProject.Path
      Else
         .InitialFileName = PathStr
      End If
      .Show
End With
If dlgOpen.SelectedItems.Count > 0 Then
      GetFileName = dlgOpen.SelectedItems(1)
Else
      GetFileName = ""
End If
Set dlgOpen = Nothing
End Function

作者: tmtony 时间: 2010-12-4 10:52
收藏了,猫哥新作.

作者: roych 时间: 2010-12-4 13:58

tmtony 发表于 2010-12-4 10:52
收藏了,猫哥新作.

这个要引用Office库，我记得在Access 2003做好之后，在Access 2000里运行时，弹出对话框，Office库丢失（2000引用的是office 10.0,2003引用的是11.0）。
我觉得还是用类函数来写好些。——不过我不会，(*^__^*) 嘻嘻……

作者: tmtony 时间: 2010-12-4 14:45
通用类比较通用些,我也是使用类. 而且可以在外层mde中使用

作者: accesscx 时间: 2010-12-4 17:39
本帖最后由 accesscx 于 2010-12-4 17:43 编辑

支持猫哥！

作者: hellowork 时间: 2010-12-6 00:19
“打开文件”对话框根本就是WindowsAPI本身的问题，这个问题在VC6中困扰了很多人！

作者: xuwenning 时间: 2010-12-6 13:18
收藏了
谢谢分享

作者: sinotrust 时间: 2011-1-8 20:26
看不懂呀，有简单的吗？

作者: Superleistung 时间: 2016-6-6 15:36
学习一下

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