cFile.cls

 VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"No"
Public Key As String

'local variable(s) to hold property value(s)
Private mvarFilename As String 'local copy
Private mvarPath As String 'local copy
Private mvarSaveLocation As String 'local copy
Private mvarTime As String 'local copy
Private mvarStartDate As String 'local copy
Private mvarRecur As String 'local copy

Friend Property Let Recur(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Recur = 5
    mvarRecur = vData
End Property

Friend Property Get Recur() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Recur
    Recur = mvarRecur
End Property

Friend Property Let StartDate(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.StartDate = 5
    mvarStartDate = vData
End Property

Friend Property Get StartDate() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.StartDate
    StartDate = mvarStartDate
End Property

Friend Property Let Time(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Time = 5
    mvarTime = vData
End Property

Friend Property Get Time() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Time
    Time = mvarTime
End Property

Friend Property Let SaveLocation(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.SaveLocation = 5
    mvarSaveLocation = vData
End Property

Friend Property Get SaveLocation() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.SaveLocation
    SaveLocation = mvarSaveLocation
End Property

Friend Property Let Path(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Path = 5
    mvarPath = vData
End Property

Friend Property Get Path() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Path
    Path = mvarPath
End Property

Friend Property Let Filename(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Filename = 5
    mvarFilename = vData
End Property

Friend Property Get Filename() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Filename
    Filename = mvarFilename
End Property

Project Homepage: