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