Office中国论坛/Access中国论坛

标题: 如何限制用户选择指定的文件? [打印本页]

作者: 好学 时间: 2006-12-21 20:23
标题: 如何限制用户选择指定的文件?
我要限制用户在打开文件对话框时一定要选择指定的文件,那应该如何处理?

比喻文件名是ABC.txt

作者: tz-chf 时间: 2006-12-21 20:56
既然限制还用得着打开对话框？

作者: 一点通 时间: 2006-12-21 21:25
使用组合框,限于列表

作者: 好学 时间: 2006-12-21 22:10
不行啊！

2楼的问题回答：由于客户不一定将文件放在那个路径上,我用打开文件名对话框就在那个路径都可以了。

3楼的问题回答：由于对话框过来的文件名是带路径的，还有这个路径是不固定的，那如何呢？

作者: 好学 时间: 2006-12-22 18:31
一点通大师您能帮我解决这个问题吗?

作者: andymark 时间: 2006-12-22 18:39
对话框的属性里应可以设置,或者选择文件后进行判断

作者: 好学 时间: 2006-12-22 18:57
andymark版主很久没有见到您了!真的想您啊!

在对话框好象只可以设置文件类型.Filters.Add "文本文件", "*.txt" '允许选择的文件类型

但我要限制文件名称,您说在选择后进行判断,我想不到办法.请版主指点!

作者: fan0217 时间: 2006-12-22 19:54
获取文件名后进行判断，如果有需要屏蔽的字眼就毙掉。

作者: 好学 时间: 2006-12-22 20:16
请版主指点啊!我真的想不到好办法[em06]

作者: tz-chf 时间: 2006-12-23 04:44
告诉用户要把文件放在指定的目录里好了

作者: 好学 时间: 2006-12-23 18:09
andymark版主可以指点一下如何在选择后进行判断吗？

作者: 好学 时间: 2006-12-23 21:53
或者换一个说法吧,我要求在打开文件对话框选择一个ABC.txt文件,但如果用户选择了BVC.txt那我如何去判断他选择错了.请指点!

作者: fan0217 时间: 2006-12-24 00:11
读取文件名,然后判断。也可以在打开文件对话框时将不符合条件的滤掉。

作者: 好学 时间: 2006-12-24 00:30

以下是引用fan0217在2006-12-23 16:11:00的发言：

读取文件名,然后判断。也可以在打开文件对话框时将不符合条件的滤掉。

在打开文件对话框时只能滤掉文件类型吧,可以滤掉不符合条件的文件名吗?请版主指点!

作者: fan0217 时间: 2006-12-24 01:04
Sub Main()
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
      .Filters.Add "文本文件", "*.txt"
      .InitialFileName = "ABC.txt"
      If .Show = -1 Then
         For Each vrtSelectedItem In .SelectedItems
            If vrtSelectedItem = "ABC.txt" Then
                  MsgBox "你选择了: " & vrtSelectedItem
            Else
                  MsgBox "请重新选择!"
            End If
         Next
      End If
End With
Set fd = Nothing
End Sub

作者: 好学 时间: 2006-12-24 19:39
不行啊!可能是这段代码有问题:For Each vrtSelectedItem In .SelectedItems
If vrtSelectedItem = "ABC.txt" Then
选择文件对啦都提示:请重新选择!

作者: binuochao 时间: 2006-12-24 21:21
Sub Main()
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
      .Filters.Add "文本文件", "*.txt"
      .InitialFileName = "ABC.txt"
      If .Show = -1 Then
         For Each vrtSelectedItem In .SelectedItems
            If right(vrtSelectedItem,7) = "ABC.txt" Then '更改一下条件
                  MsgBox "你选择了: " & vrtSelectedItem
            Else
                  MsgBox "请重新选择!"
            End If
         Next
      End If
End With
Set fd = Nothing
End Sub

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