home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / swbback / cselecte.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-02-17  |  1.8 KB  |  76 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CSelectedFiles"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17.  
  18. '===================================================
  19. '  Class to represent a single specification
  20. '  for selected files (include or exclude)
  21. '===================================================
  22.  
  23. Private mPathFileMask As String
  24. Private mAttributes As Long
  25. Private mSubdirectories As Boolean
  26. Private mStartDate As Date
  27. Private mEndDate As Date
  28.  
  29.  
  30. Public Property Let EndDate(ByVal vData As Date)
  31.     mEndDate = vData
  32. End Property
  33.  
  34. Public Property Get EndDate() As Date
  35.     EndDate = mEndDate
  36. End Property
  37.  
  38.  
  39. Public Property Let StartDate(ByVal vData As Date)
  40.     mStartDate = vData
  41. End Property
  42.  
  43. Public Property Get StartDate() As Date
  44.     StartDate = mStartDate
  45. End Property
  46.  
  47.  
  48. Public Property Let Subdirectories(ByVal vData As Boolean)
  49.     mSubdirectories = vData
  50. End Property
  51.  
  52. Public Property Get Subdirectories() As Boolean
  53.     Subdirectories = mSubdirectories
  54. End Property
  55.  
  56.  
  57. Public Property Let Attributes(ByVal vData As Long)
  58.     mAttributes = vData
  59. End Property
  60.  
  61. Public Property Get Attributes() As Long
  62.     Attributes = mAttributes
  63. End Property
  64.  
  65.  
  66. Public Property Let PathFileMask(ByVal vData As String)
  67.     mPathFileMask = vData
  68. End Property
  69.  
  70. Public Property Get PathFileMask() As String
  71.     PathFileMask = mPathFileMask
  72. End Property
  73.  
  74.  
  75.  
  76.