1VERSION 1.0 CLASS
2BEGIN
3  MultiUse = -1  'True
4END
5Attribute VB_Name = "FileTypeAssociation"
6Attribute VB_GlobalNameSpace = False
7Attribute VB_Creatable = False
8Attribute VB_PredeclaredId = False
9Attribute VB_Exposed = False
10'*************************************************************************
11'
12'  Licensed to the Apache Software Foundation (ASF) under one
13'  or more contributor license agreements.  See the NOTICE file
14'  distributed with this work for additional information
15'  regarding copyright ownership.  The ASF licenses this file
16'  to you under the Apache License, Version 2.0 (the
17'  "License"); you may not use this file except in compliance
18'  with the License.  You may obtain a copy of the License at
19'
20'    http://www.apache.org/licenses/LICENSE-2.0
21'
22'  Unless required by applicable law or agreed to in writing,
23'  software distributed under the License is distributed on an
24'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
25'  KIND, either express or implied.  See the License for the
26'  specific language governing permissions and limitations
27'  under the License.
28'
29'*************************************************************************
30Option Explicit
31
32Private mFileSpec As String
33Private mXLKey As String
34
35
36Public Property Get filespec() As String
37    filespec = mFileSpec
38End Property
39
40Public Property Let filespec(ByVal vNewValue As String)
41    mFileSpec = vNewValue
42End Property
43
44Public Property Get key() As String
45    key = mXLKey
46End Property
47
48Public Property Let key(ByVal vNewValue As String)
49    mXLKey = vNewValue
50End Property
51