如何限制用户选择指定的文件?

好学

andymark版主可以指点一下如何在选择后进行判断吗？

好学

或者换一个说法吧,我要求在打开文件对话框选择一个ABC.txt文件,但如果用户选择了BVC.txt那我如何去判断他选择错了.请指点!

fan0217

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

好学

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


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

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

fan0217

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

好学

不行啊!可能是这段代码有问题:For Each vrtSelectedItem In .SelectedItems
                            If vrtSelectedItem = "ABC.txt" Then
选择文件对啦都提示:请重新选择!

binuochao

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