www.pudn.com > AutoUpdate.rar > FILEINFO.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 = "FILEINFO" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = False 
Attribute VB_Exposed = False 
Option Explicit 
 
Private sFileNameValue     As String 
 
Private sFileSizeValue     As String 
 
Private sModifiedDateValue As String 
 
Private bUpdateValue       As Boolean 
 
Private bFileExistValue    As Boolean 
 
Public Property Get sFileName() As String 
    sFileName = sFileNameValue 
End Property 
 
Public Property Let sFileName(ByVal sValue As String) 
    sFileNameValue = sValue 
End Property 
 
Public Property Get sFileSize() As String 
    sFileSize = sFileSizeValue 
End Property 
 
Public Property Let sFileSize(ByVal sValue As String) 
    sFileSizeValue = sValue 
End Property 
 
Public Property Get sModifiedDate() As String 
    sModifiedDate = sModifiedDateValue 
End Property 
 
Public Property Let sModifiedDate(ByVal sValue As String) 
    sModifiedDateValue = sValue 
End Property 
 
Public Property Get bUpdate() As Boolean 
    bUpdate = bUpdateValue 
End Property 
 
Public Property Let bUpdate(ByVal bValue As Boolean) 
    bUpdateValue = bValue 
End Property 
 
Public Property Get bFileExist() As Boolean 
    bFileExist = bFileExistValue 
End Property 
 
Public Property Let bFileExist(ByVal bValue As Boolean) 
    bFileExistValue = bValue 
End Property