在ACCESS中如何实现打开对话框

introc

在excel中，可以使用下面这句话，实现打开多个文件的对话框
newtext = Application.GetOpenFilename("Excel Files (*.xls), *.xls,Word Files (*.doc), *.doc,Text Files (*.txt), *.txt,All Files (*.*), *.*", , "请选择目录", MultiSelect:=True)
但是，ACCESS中没有GetOpenFilename这个函数，在网上搜索到的利用windows的API 调用系统函数，能实现打开对话框，但是没有同时选取多个文件。

请高手指点下啊，怎么才能在ACCESS中 ，实现可以同时选择多个文件的对话框。

谢谢啊

introc

使用FileDialog 函数也能实现，但是FileDialog函数需要加载某个引用，这样的话，即使做出来的工具，也会让使用者用起来比较困难。因为有的使用者不会加载引用啊。

各位大侠，还有没有好的方法啊

sgrshh29

Set dOpen = Application.FileDialog(1)
    With dOpen
        .Filters.Add "所有文件", "*.*"
        .Show
    End With
    If dOpen.SelectedItems.Count > 0 Then
        FileName = dOpen.SelectedItems(1)
    Else
        FileName = ""
    End If
Set dOpen = Nothing

introc

奇怪了.我想把文件锁定成 txt 文件,这样修改,为什么不行呢?
Set dOpen = Application.FileDialog(1)
    With dOpen
        .Filters.Add "MML文件", "*.txt"
        .Show
    End With
    If dOpen.SelectedItems.Count > 0 Then
        FileName = dOpen.SelectedItems(1)
    Else
        FileName = ""
    End If
Set dOpen = Nothing

sgrshh29

Set dOpen = Application.FileDialog(1)
    With dOpen
      .Filters.Clear  
      .Filters.Add "文本文件", "*.txt"
        .Show
    End With
    If dOpen.SelectedItems.Count > 0 Then
        FileName = dOpen.SelectedItems(1)
    Else
        FileName = ""
    End If
Set dOpen = Nothing

introc

多谢高手指导

安贤

学一下高手的思路